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If you‘ve been wondering where to begin, look no further. Of the dozens of books purporting 
to teach computer programming, INSTANT BASIC is the greatest for the following reasons: 


» efficiency, understandability, and economy. 

| = microcomputer oriented for Microsoft-like versions of BASIC as used on the Apple, 
TRS-80, PET, Microexpander, and any brand of computer using Microsoft BASIC 80, 
with annotations for Northstar BASIC, Atari BASIC, DEC BASIC Plus, and with 
rumors and snide asides about other versions of good ole BASIC. 

=» no heavy math. 

= neat little boxed summaries of BASIC statements throughout the book. 

= an active-participation tutorial primer and workbook for the absolute beginner and 
compleat novice. 

» end-of-chapter activities to see how well we've taught you BASIC. 

= one of the smoothest and best-tested instructional sequences going! 


We keep the information coming, but in small, discrete lumps so that you don’t choke up. 
(Hopefully you won't choke with laughter at our attempts at humor.) We take full 
advantage of the interactive (immediate feedback) quality of BASIC to give you practical 
demonstrations and practice for fast, easy learning. You get a working familiarity with the 
real fundamentals of BASIC in from 6 to 26 hours, fans. Our examples try to keep your 
typing time to a minimum while maximizing learning and developing good programming 
techniques. 


Our experience teaching beginners from 6 to 76 has shown that there are 
three programming concepts that sometimes give first-timers problems: 
conditional branching (IF... THEN), looping or iteration (FOR... NEXT), 
and arrays (subscripted variables). We give these concepts special! attention 
using explanations and examples we have refined and found most effective 
over the years. 





We assume that you are a first timer, that you have had no previous programming experience 
at all. We assume you have ready access to a microcomputer or to a computer system 
running in BASIC. Those of you who have had a little experience will find the early chapters 
a breeze. However, for first timers, this is not a book to skip around in. Start here on page 1 
and plow on through. This ‘‘active participation’ workbook ts an alternative to that 
headache-producing process called “digging it out of the reference manual.” INSTANT 
BASIC is a favorite learning tool with instructors AND students from junior high to 
university levels! 


The first half of the book takes it really slow and easy. We encourage you 
(in fact, we urge and exhort to the point of browbeating...) to experiment 
and try out your budding programming skills beyond the examples and pro- 
jects we include in the book. We want you to think of things interesting to 
you, and to think of how what you are learning may be applied to such 
things. 


Look for our Handy Reference Summaries 
placed throughout the book in boxes with 
polka dot borders like this one. 


You can USE a computer (and make very good use of it, thank you!) without ever learning 

computer programming. Thousands of ready-made programs are available for purchase and 

use ON various microcomputers. People also share their own programs through magazines and 
newsletters, computer clubs, and user’s groups, which are associations of people using the 

same brand computer, or a specific computer language, or specific computer application. 

But the BASIC programmer (soon to include you) will be able to take fuller advantage of the 
computer, and dispell the mystery of the (supposedly) almighty, complicated, and scarey 

computer. Welcome to the 2nd Astounding! Edition of INSTANT BASIC. | 
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This means we want you to try this on 
your computer, so go ahead and DO IT. 
Lhhtbthththhhhhhhlhth tlh 


DO IT 





Is your machine up and running in BASIC (turned on and ready)? To get 
the feel of things, try typing HELLO COMPUTER 


When you have finished typing HELLO COMPUTER, press the key 
marked CR or Carriage Return or RETURN or GO or ENTER. 
Despite its different names on various manufacturers’ keyboards, 
this key is usually located along the righthand side of the keyboard. 
Since the keyboard | happen to be using says RETURN on this key, 
that’s what I‘! call it in this book, and you'll know to press the 
corresponding key on your keyboard. You'll be using it constantly 
so be sure to look for it now. 






SHIFT 


This shows a popular keyboard layout. Yours 
may be slightly to radically different. In 
either case; you'll get used to yours in short 
order. Some touch-sensitive ‘‘membrane”’ 
keyboards (those flat. ones that have no 
discrete and separate keys that press down) 
may be quite different in layout. 





3 The computer will type out a message in response, such as: 
HELLO COMPUTER = You type this and hit RETURN. 


Computer tells you that you made an 
2SN ERROR Me ro anything it doesn’t understand 
is considered an error. 












SYNTAX ERROR is 
the computer's way 
of saving, “Get it 
right, meathead!”’ 


en 





The point is, the computer didn’t understand what you typed. People have 

not yet designed computers that can figure out from plain English what you 
want them to do. So to make the computer “‘do” something, we use a 
computer language, such as BASIC, to present our instructions to the computer. 
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Si ae 
Do | a Now type the word RUN and then press the RETURN key. 
| 7 : es N ~<a x ey You type RUN and then press the 
Me RUN ek Xk KH KIO VPS a 
THIS IS EASY ee 
The computer PRINTs this 
SO = gen \ 
j - , =. > THIS IS EASY 
Le , "7 ™ ms ; % F a” 
fe a iia 1S Ne ee, ee 
) — af 4 » Congratulations! You have just entered or typed in a computer program 
(Kind of a small program, only one line of instructions), and caused the com- 
‘ ~ ; READ _ 4 outer to RUN or execute your program. 
=. ae Basically (if you'll excuse the pun), you told the computer to PRINT what 


was inside the quotation marks. Your instruction or program was this: 
28 PRINT "THIS IS EAsy” 


The computer responded by typing or displaying 
THIS IS EASY 
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First tyoe NEW and hit RETURN. Then type in this program. 


NEW 
1@ PRINT “WHAT" Hit RETURN at the end of each 
29 PRINT ‘*a" statement in the program, and 
3@ PRINT "BREEZE" also after you type RUN. 
Dah First th t tes Line 10 and PRINT 
a - irst the computer executes Line 10 an S 
WHAT WHAT. 
A <————— Then it goes to the statement with the next higher 
BREEZE line number, Line 20, and PRINTs A. After Line 20 


the computer follows the instruction at the next 
higher fine number, Line 30. Don’t tell me, let me 
guess what it PRINTs. 


Now you do a program like this one, using the PRINT statement to 
orint one or more strings. Try whole sentences in each string. Don't 
forget the quotation marks around the string. 


NEW 





You don’t have to enter or type in a program in line number order. That 
is, you don’t have to enter line 10 first, then line 20, and then line 30. If 


we type in a program out of line number order, the computer doesn’t 

care. It follows the line numbers, not the order they were entered or 
typed in. This makes it easy to-/nsert more statements in a program already 
stored in the computer’s memory. You may have noticed how we cleverly 
number the statements in our programs by 10's. This makes it easy to add 
more statements between the existing line numbers -- up to nine more 
statements between lines 10 and 20, for example. 


Let’s put the PRINT statement through a few tricks so that you get some ideas 


READ , , | 
EAD of what it can do and what it can be used for. First type NEW and hit 
RETURN. The computer will give you the go ahead sign ...and sit there 
waiting. 
NEW 
‘ Wuety,,, type NEW and hit RETURN Use a for the minus sign. 
DO IT | BASIC is ready to go to work for you 
Use and C) together for the plus sign. 

Then type the following: © 
12 PRINT le2+le2 You carefully 
20 PRINT 12-12 type these 

two lines. 


More Hopefully Helpful Hints — 


(1) You must hit RETURN when you finish typing 
| an indirect statement and before you type the 
next line number. 


(2) The lower case L does not substitute for the 
number one (1), and the letter O can’t be 
used for a zero. 





When you RUN the program above, the computer should print the answers 
| to the problems, like this: 


| RUN <— vou type RUN and hit RETURN. 










24 The computer does the computing and gives the results. 
| g There are 2 results, one for each fine in the program. 
| 4 n¢ ” > 7 r 
4 a Or, as they say in computerese, the computer eva/uated the expressions 
READ © (12+ 12 and 12 — 12) and, per instruction, PRINTed the results. 





While we're at it, here is more information on BASIC arithmetic: 


* To tell the computer to add, use + ae 
" To tell the computer to subtract, use — 
* To tell the computer to multiply, use * 
* To tell the computer to divide, use / 





DOODOOOOOOO 
COOOOOOOO@OOS 
SQOOOSOOQOOCEF 

SQOOOOOP4 a 







e (o") and @ together for BASIC’s multiplication sign. 
Use G for the division sign. 
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Your display or printer may have 16, 24, 40, 72, 80, or even 132 character 
positions across a line. Every space across the line where a letter or number 
could be typed is a character position. A character is any number, letter, 
symbol, or single space. To see how many character positions across a line 
your printer or display can handle, type X’s across a line and keep count. 


- i For later reference, record the results of your count here. | | 


r XXXXXXXXAKRKXKAXXKAAKAXXAXAAKRAAKRKAXKRRKKAXXXKAKKAXXAXAKXXAKKAKXKKXKXKXXXKKXKKXKKXKXXKKXKXKKAKK 





Using a comma to separate items or expressions in a single PRINT statement tells the computer 
to space over to a print position at a certain place in the line before printing the next item. 


You say you're a stickler for details? Very well. The comma in a PRINT statement divides 
the line into three or more columns, each 14 characters wide (for most versions of BASIC). 
After seeing a comma in a PRINT statement, the computer spaces over to the beginning 
of the next one of these columns in the current line before it prints the next item. 
By the way, many versions of BASIC count the first character position as zero rather than one. 
More on that after while. Meantime, you can learn to take advantage of this ‘‘automatic”’ 
spacing, which ts like having permanent tab settings on a typewriter, activated by the commas 

| separating PRINT statement items. 

| For the line below, read the numbers up and down, like this: 1 _ 10 = 71 

0 i: 


@12345678911111111112222222222333333333344444444445555555555666666666677 
912345673981234567898123456739012345673948 12345673899 123456789G1 





Ist Print Zone 2nd Print Zone 3rd Print Zone Etc. 
Print Print Print Print Print 
Position Position Position Position Position 
One Two Three Four Five 
(last print position The print zones or automatic tab positions 
in the line on vary from one system to another. Atari's 
many video displays) BASIC, for example, has print positions at 
7, 15, 23, 31, and 39, but also allows you 
to set your own. 
SSeseeeeseeeoeoesceeoeooeoeoeosoeeooooeode @ 


PRINT 
Print the values on the terminal. 
(ine no.) PRINT (expression) or (list) 


20 PRINT 7 +3 

30:'PRINT “INSTANT BASIC” 

40 PRINT N$ 
Use ? as the short form to enter PRINT. (& in DEC BASIC Plus, ! in Northstar 
BASIC) Commas (,) separating items in a PRINT statement cause them to be 
printed or displayed across the line beginning at the next available unused 
print zone, each usually 14 or 15 characters wide. Semicolons (;) separating 
PRINT statement items cause them to be output next to each other. 


10 PRINT C,Y,Z$ 10 PRINT X,Y,Z$ 
| 20 PRINT A;B:C 


A semicolon or comma at the end of a PRINT statement supresses the normal 
carriage return and line feed (cursor returns left and drops down one line). 


Seeeeeseoeoeooc eee eee@ 
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READ - Do you occasionally make mistakes? We do, watch. 


1@ PTINT 2*3+4 We misspell PRINT. 


RUN 
i@ The computer tells use we made a mistake. A check in the 


a As reference manual shows us that SN ERROR AT 10 means 
?SN ERROR IN 10 a syntax mistake; it didn’t compute. 


The point is, if we had noticed that we hit T when we meant to hit R, we 
could have corrected our mistake by using the back arrow key 


pointing arrow on It, and each time you press it, the cursor moves one character 


C0 most keyboards designed for use with video displays, there is a key with a /eft- 
position to the /eft, and erases whatever was there, even a blank space. - 


some BASICs check for certain kinds of errors right after you type ina line, 
and you don't have to RUN the program before BASIC lets you know in no 
uncertain terms. 


The cursor moves backwards (to the left) and cancels 
out the entry in one character position. Then you 
type the correct letter (R) and finish typing the 
statement with no more errors. For some printers, the 
back-arrow deletes the character it points to. 





NEW 


Let’s clear things up. 





19 PT@RINT 2%3+4 


oe Sa 11ST the program. 


16 PRINT 2*3+44 i You see? The statement is now OK. 


ds RUN 
Z | 1d 
ee 3 ' Indicates one press 
NEW of the left-arrow key. 2-left-arrow keystrokes, 







1@ PRINT "GET H*=THE POIM «sNT" 


Deletes (takes out) the H. - “Deletes the space and the M. 


On video displays, the cursor moves backwards a space for each press of the 
“‘left-arrow” or backspace key. Whatever the cursor passes over while moving 
LEFT gets erased. | 


#224444444444444444444 


LIST 


The underline key may be used just 
like the back-arrow or left-arrow keys 
on some systems, and does the same 
thing. Experiment! Nothing worse 
than a syntax error will probably 
befall you. 





1@ PRINT "GET THE POINT" 


q | 
rr os , = Fs i io lh / a Pytr YO rer, 
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— 2B PRINT "VERY'te——— We want to replace this line. 
| DOIT 30 PRINT "MUCH" (These two statements are still in the 
3 A computer’s memory.) 





| i 
26 PRINT TOO" —_—_————— Type this line with the line number for the 
LIST statement you want replaced. 
LIST to see the modified program. 
| 2@ PRINT "TOO" Our new program is far out... . 
| 3@ PRINT “MUCH" : a] 
| 
| RUN 
TOO 
MUCH 
i \ , | ! rel i} 
| READ 2G 
a Let’s say you are typing along, ENTERING a statement and... suddenly... you 
vs notice that you have started the line with the line number of another statement, one 


you entered (typed in) earlier. If you just press RETURN to start over, you will 





replace that earlier statement with the line you are typing in now, since the second one 


C | y will replace the earlier statement with the same line number. If you notice this in time 


| (before you press RETURN), you can cance/ the line you are working on, using 
a combination SHIFT and P key (SHIFT/P). (Exceptions are noted below.) 


For video displays, it is very easy to just use the back-arrow key to erase all the 


characters in the line back to and including the mistaken or duplicated line number. On 














Jap =»... Cause this “‘clean sweep” of the statement line all the way back to the beginning. 
=<. as" am ~=Experiment! 
ies J 
DO IT = 





On a video display, the cursor drops down one line, and. 
returns to the left side of the screen, just as if 

you had pressed RETURN. A printer does a /ine feed 
(paper goes up one line) and a carriage return 

(print head goes back to left side of the paper). 


Use (on) and together. 


For Radio Shack, Northstar, others: SHIFT/P 
For Atari: SHIFT/DELETE 

For Apple: CONTROL/X 

For DEC BASIC Plus: SHIFT/X 








19 PRINT "GET THE OIUBe@ We got frustrated and decided to take out the entire line. 


some keyboards, holding down the back-arrow key will cause the cursor to move right 
along (to the left, of course), erasing each character in the line that it passes over, until 
7% it gets all the way back to the left edge of the display screen. On other systems, holding 
Y aw the back-arrow or left-arrow key down while also pressing a REPEAT or REPT key will 
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How BASIC Figures It. 
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ONS 


1@ PRINT 2*2*2*«2*«2 
20 PRINT 25 
RUN 





Enter and RUN the following programs. Or, if you'd rather, use 
direct mode to do each line or each arithmetic problem. 


EW. 
RDidia or dintcha? 


10 PRINT 2*344, 2*3+4«5, 23/4 
26 PRINT 2*(3+4), (€2+3)« (445), (€24+3)/C4+5) 





RUN 
12 26 165 
14 A5 ~555556 
; OOOVDOOOOOCOOO 
NE 





GOOOOOOOO@OOS 
GOOOOQOOOOOO@@ 
GOGOOQOHGOOOS 







Here is where 
the up arrow 
is located on 


32 2x2x2x 2x 2 is the same as 2° 

32 (two to the fifth power). Note the use 
of the up arrow + in BASIC to com- 
pute the power of a number. 


most keyboards. es 
eee) The up arrow on your display or printer may look more like this: 


4, BASIC Plus uses ** (2 asterisks) instead of up arrow. 


| THE RULES 


1. BASIC evaluates an expression (does the arithmetic) by starting 
at the left side of the expression and working towards the right... 


2. ...doing all the power (+) computations first...t 


3. ...then starting at the left again and working right, doing all the 
multiplications (*) and divisions (/)... 


4, ...then starting once again at the left, BASIC works through the 
expression doing all the additions (+) and subtractions (—). 


0. However, BASIC evaluates the expressions /nside of parentheses 
() first, following the same Rules of Precedence (who comes first) 
stated in 1 to 4 above. 


6. If there are pairs of parentheses within parentheses, the evaluation 
or computing is done inside the inner-most set of parentheses first, 
then the computing is done inside the next set of parentheses, and 
SO On and so on. 


7, But don’t forget: each /eft parenthesis ( must have a matching 
right parenthesis ), and vice versa, or BASIC will give you an error 
message when you try to RUN the program. 


T Of course you can control the order in which power ( +) or 
any other calculation is done by using parentheses — see 5; 
6 and 7 above. Join the Parentheses Power movement! 
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STATEMENTS 


1@ LET A=5 


2@ LET B=19 


PRESSE EoE00000000RHREEREERRI 


38 LET A=15 


fT | Te 1) FY 
—) 
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> |= 1} Tat 
—~ 
eS te E 
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= 


— 


ee 


4@ PRINT A-B 


Uns | 


Your system may have a utility program that automatically traces the path your computer 
follows when executing a program, with line numbers as well as values of variables displayed 
as the RUN procedes. This is handy not only for understanding the workings of a program 
that works, but also for seeing where a program that doesn’t work as expected is going wrong. 


= ae 
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1@ LET A=5 
23 LET B=1@ 
32 LET A=15 
4@ PRINT A-B 


What?? Two A’s being assigned different values by lines 10 and 30? If you 
look closely, you'll see that the value assigned in Line 30 is the value (15) 








used in Line 40 to eva/uate (do the arithmetic) and print the result. BASIC 
always uses the /ast value assigned to a variable. In effect, any new value 
assigned to a variable, replaces the former value in the box for the same 
variable. The old value is lost forever, unless a new assignment is made. 


Here is a trace of the program as the computer goes through the program in 
line number order. A trace traces the path the computer uses when RUNning 
the program, showing the va/ue of the variables after each statement Is 
executed by the computer. The computer, in case you haven't noticed, .is a 
fast worker, and starts to print the results of our program almost as soon as 


you type RUN and hit RETURN. 


VARIABLES & VALUES 











EXPLANATION 


The value of A after the computer 
executes (follows the instruction) 
in Line 10. 


The value of A is still 5 after the 
computer executes Line 20 and assigns 
the value 10 to variable B. 


The old value of A is replaced by the 
new value 15 after the computer 
executes Line 30. The value of B 
hasn’t changed. 


The values of the variables don’t 
change as the computer executes 
Line 40. The vaiues in A and B 
are used by the computer to 
evatuate A — B and PRINT the 
result 


21 





As you can see from that last example, a variable can only have one value at 
a time, and the last value assigned will be the one recorded in the little box 
for that variable. The previous value is replaced by the latest one assigned, 








:om- 
z and any previous value of that variable is gone forever. 
or : 
m 
t 
; Lc 
NEW 
1 LET F=6 | 
= 26 LET G=8 
— 32 LET H=F*G | 
4@ PRINT H 
RUN TH, 
48 i 
fi 
\ 4 
a mas = 









Look at this trace to see exactly what happens when the program is RUN. 


STATEMENTS VARIABLES & VALUES EXPLANATION 


Value assigned to F 


1@ LET F=6 


20 LET G=8 


260066 06006060000608000088 


Value assigned to G. 





3@ LET H=F*G 


Value assigned to H, using the values of 
F and G for the computations (doing 
the arithmetic). 





46 PRINT H Computer prints the value of H. Note 
that all values are still in their boxes. 
RUN All of the above happens after 
4B you type RUN and before H is 
printed. Fast, huh? 


me versions of BASIC have a TRACE 


ton that shows you the line numbers cantina 7 
= statements as they are executed, and 7 me |e ae I \ 
= er they are executed, during a RUN, | I | | ) ie [B\ 
verre there are no PRINT statements (such ee ia 
Nes 10, 20, and 30 in this program). This 93 


De helpful in debugging a program. 





FOR STORAGE 








However, there is more to variables than just putting numbers in boxes. 
READ Instead of a number, the value of a variable can be a string. So that 
BASIC knows that we are dealing with a string variable, the label or 
_ variable name ends with a $, for example, A$ ina LET statement. The 
string that is being assigned to the string variable is enclosed by 
quotation marks, just as ina PRINT statement. 


: NEW 
/ DOIT \ : 
o_o 1@ LET pani, | cs| VERY _| 
/ 29 LET ES="GOOD" E$| GOOD 
( 30 PRINT CS$3 CS3 ES bs KL 
} RUN 
VERYVERYGOOD 






Well, we could try it another way. Without typing NEW, replace Line 30 
with a new Line 30, using commas where the semicolons were. 


3@ PRINT C$, CS. ES 
RUN 
VERY VERY GOOD 


Hmmmm, still not too good. Replace Lines 10 and 30 like this 


1g LET CS="VERY xt see the extra space 
386 PRINT CS$s CS$s ES 
LIST tf 


semicolons again 


16 LET CS="VERY " 
e@ LET ES=""GO0D" 
39 PRINT CS$3 CS$3 ES 





RUN 
VERY VERY GOOD 


Did you enter (type in) this program exactly, and still got an error message when you tried to RUN it? 
If not, go to the next page and collect $200. For Atari and some other non-Microsoft BASICs, you 
must a/ways inform the computer of two things at the beginning of the program: 

(1) that you will be using strings assigned to string variables in the program, and 

(2) the maximum number of characters that a specific string variable can be assigned. (Using /ess than 
the maximum number of characters you have specified is always OK.) 

To do this, use the DIM (for-DIMension) statement, like this one for the program above. The number 
in parentheses gives the maximum string length for that specific string variable’s assignments. 


Only if you got an error message before, 
add this line to the programs above and RUN again. 


S DIM C#(5), ES(5) <—»> 


Note that more than one string variable can be DIMensioned in the same DIM statement, with each 
one separated by (what else?) a comma. See also pages 26 to 31, and 142. Since this procedure is not 
for most BASICs, those of you who need it will be expected to supply your own DIM statement at the 
beginning of all programs using string variables. (Excuse the inconvenience.) And note this: If you 
attempt to assign strings /onger than the DIMensioned character count to a string variable, the “extra” 
meecters are Cut off or truncated to the allowable DIMensioned character count for that string 
variable. 


= DIM As$¢5) ——~ PD IMensioned maximum length for A$’s string. 


fac: 10 LET At = "123456799" “> A 9 character string to be assigned to A$. 


<0 PRINT As 
RUN Oops! 6789 was left off of the string we tried to assign to A$, 


127345 <——— because the string had 4 too many characters in it. 


But the truncated (cut off) string “12345” was assigned to A$. 
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VRPUT with“PRomeT STRINS 


But that question mark isn’t too informative by itself. You don’t know what 
to respond to an INPUT question mark unless you know what the program 
is about. So here is how you provide a prompt or cue as to what the program 


needs for an INPUT. 


| NEW Note the semicolon 


l@ INPUT "WHAT IS YOUR NAME"'S N&$ 
2@ PRINT NS " IS YOUR NAME." 


DO IT 
ble, | Old Atari BASIC uses the “old 
‘Note th 
sg a ote ties haee fachionad” method tor INPUT 


Note the semicolon prompts shown on page 30. 


Tell the computer your name (type it in, silly, and don’t forget RETURN) 
when it asks you. 


RUN pelt asks (You respond 
WHAT IS YOUR NAME? JERALD R.- BROWN =x 


2? 


JERALD Re BROWN IS YOUR NAME. - 
JERALD R. BROWN 


Don’t worry if the question mark 
was omitted by your version of 
BASIC (see page 30). 


Your INPUT string is 
assigned to N$. 


Notice that you must put the prompt string 


"WHAT IS YOUR NAME" 


in quotation marks, and that between the prompt string and INPUT 


variable you must use a semicolon ™\ 


I@ INPUT “WHAT IS YOUR NAME'"3 N& 


The INPUT variable. 
The prompt string 


Did N$ print less characters than you entered for your first and last names? 
For some versions of BASIC, you are automatically allowed to assign strings 
with 10 characters in them to string variables. But for longer strings (over 10 
characters), you must inform the computer of the maximum length (number 
of characters) that each specific string variable can be assigned. To do this, 
go directly to page 25 and learn how to use the DIM statement, and return 


the $200. 


more (6 Come... 
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DO IT 


Now LIST the program if you want to see it all together. 


LIST 


1¢ INPUT "WHAT IS YOUR NAME"S N& 

29 PRINT NS$s “" IS YOUR NAME." 

30 INPUT "HOW OLD ARE YOU'S A 

4Q@ PRINT N$s "ts YOU ARES AS “YEARS OLD." 


READ 
Let us digress for just a moment here to discuss the last PRINT statement (line 40) in this 
program. Various versions.of BASIC print numbers in slightly different ways. A leading 


space (where a plus sign could go) may be included for all pos/tive values printed or 
displayed by a PRINT statement on your computer system. Try this little program: 


NEW 20 arr 4 


10 UY VY VY VYYYVVVYYVVVVVVYYVY¥" 


Cesting 1;2;:3;4 


RUN 
YYVYVYVYYYVYYYYVYYVYYYVY 
1 2 3 4 3 6 
then your machine prints positive values with leading AND trailing spaces. 


om READ ™ 


If your RUN looks like this: 


VY VV VY YYVYYYYYVVYVYVYY 
i?sa4ssé6 
then your BASIC prints positive values with a leading space, but no trailing space. 


If your RUN looks like this: 


If your RUN looks like this: YVVYYVVYYYYVVYYYYYYYYY 


1234356 
then guess what. No leading or trailing spaces. 


Now you fix the last PRINT statement in the ‘name and age” program according to how 
your version of BASIC prints or displays positive values. If only leading spaces are 
included, and the RUN looked like this: 


BILL, YOU ARE 2?YEARS OLD. 
then replace line 40 like this: 
40 PRINT Né: “", YOU ARE": A; “YEARS OLD.” 


Space 
If neither leading nor trailing spaces are included, your RUN looked like this: 


FILL, YOU ARE22YEARS OLD. 


and you should use this version of line 40: 


40 PRINT N#; ", YOU ARE "3; As “ YEARS OLD." 


Spaces 9 9 





THE TRIALS AND TRIBULATIONS OF MULTIPLE INPUT VARIABLES AND NULL STRINGS 





i 0 
who's “* G 0 NEW 
| A 
10 PRINT “ENTER YOUR NAME, LAST NAME FIRST," 
20 INPUT "SEPARATED BY A COMMA: ";L%,F% Commas separate 
30 PRINT F#,L¢ ‘multiple INPUT variables 
RUN 
Ist RUN ' 
> ENTER YOUR NAME, LAST NAME FIRST, aoelis eae es me 
SEPARATED BY A COMMA:BROWN,JERALD R-G)) Oo otedby 
JERALD R. BROWN printed by line 30 but not including 
the comma. 


2nd RUN_»> RUN 
ENTER YOUR NAME, LAST NAME FIRST, 





rint number: SEPARATED BY A COMMA: We hit RETURN without making 
ding and fo were Ward i ee an entry for LS. 

spaces to see null strings! > The computer still expects an entry 

S. 


for the 2nd INPUT variable, F$, 
but we just hit RETURN again. 






For the second RUN, we hit RETURN /nstead of making an entry, for both L$ and FS. 
The computer interprets each of these ‘‘non-entries” as instructions to assign an empty 


or null string, that is, a string with no or zero characters in it, as if LS = “’’ and F$ = “°’. 
The ‘‘nothing’” between each set of two quotation marks is the nu// string. 


Not all versions of BASIC react as we have shown. For example, Microsoft BASIC 80 

will give you the error message 

? REDO FROM START 

if you attempt to enter for an INPUT statement: 

(1) too few values or strings. 

(2) too many values or strings. 

(3) the wrong type of data, that Is, a string where the INPUT statement expected a 
numeric value for a numeric variable. 

In other versions of BASIC, hitting RETURN without making an entry can (mistakenly!) 

assign a zero if the variable was a numeric one, or a nu// string for a string variable. Later 

you can learn how to “‘trap”’ these and other kinds of !NPUT entry errors. 





Tee 


NEW 





10 INPUT “HOW OLD ARE YOU?T"; AS 

20 PRINT “YOU ARE": A$: "YEARS OLD." 
a No spaces inside the quotes. 

RUN 

HOW OLD ARE YOU? S arend We hit RETURN without making an entry. 

YOU AREYEARS OLD. 


The null string 

assigned to A$ 

doesn’t take up 3] 
much space, does it? 





ls a Mathematical Whie! 











SRN fiat OLD ARE You?72 —— 
LY [1983 


YOU ARE 72 YEARS OLD. 
WHAT YEAR IS THIS?199= ; [vy ] 1983 | 
IF THIS I5 1983 THEN YOU WERE HORN AROUT 

OK here. >> ivil 


Nu This BASIC will not 
RU assign the string TEN 
HOW OLD ARE YOUP?PTEN a ann to numeric variable A, 


| 
— 2nd RUN > OREENTER _ | but it does give you , 
Vo® | HOW OLD ARE YOU?1O anomerenener 
- oO ; . , 
YOU ARE 10 YEARS OLD. ) 
WHAT YEAR IS THIS?i99= 
wabicg IF THIS IS 1983 THEN YOU WERE BORN ABOUT 


q © 1973 
ACA DOUBLE or ?? 


We don’t recommend using more than one INPUT variable per INPUT statement, but there are always 
exceptions. In the following program, both height (inches) and weight (pounds) are entered in response 
to one INPUT statement for assignment to two variables. 


10 PRINT “ENTER YOUR HEIGHT (INCHES) AND WEIGHT (LBS)" 


20 INPUT “SEPARATED BY A COMMA: "3;H,W 
30 PRINT "HEIGHT: "sH * 2.543" CENTIMETERS" 


——| 40 PRINT “WEIGHT: "3W * .4536;" KILOGRAMS" 


string 
‘(0 AS. 





RUN 
Ist RUN_> Cer YOUR HEIGHT CINCHES) AND WEIGHT (LBS) 
SEPARATED BY & COMMA: 69, 145 ee We followed directions. 
HEIGHT: 175.26 CENTIMETERS 
WEIGHT: 65.772 KILOGRAMS 


RUN 
2nd RUN_ > ENTER YOUR HEIGHT (INCHES) AND WEIGHT (LBS) 


SEPARATED BY A COMMA: 69 >————___ we didn't follow directions, 











P?P14sS _—_——S—sS—tt thee patient computer 
HETGHT: 175.26 CENTIMETERS displays double question marks 
WEIGHT: 65.772 KILOGRAMS and waits for the 2nd entry. 





3rd RUN» RUN 
ENTER YOUR HEIGHT (CINCHES) AND WEIGHT (LBS) 


SEPARATED BY A COMMA: — We stubbornly refused 





TREENTER to make an entry, and 
SEPARATED BY A COMMA: —— ust kept hitting RETURN. 
- PREENTER — Our BASIC refuses to continue 
c. SEPARATED BY A COMMA: without our INPUT entry, 33 


being equally stubborn... 















JRPS u 


INPUT TEST PAGE 





“SEMICOLON” 
7CO:LON” 
“PERIOD” 
~“EXICLAIM!” 
“A'POS'TRO'PHY™ ——— 
“AMP&ER&SAND” | 
“NUM#BER” ee | 
“SLA/SH” 
T7AST*R*SK" _ 
“NOW,” HE SAID. 










SHE ASKED, “WHY?” : 
= eee eee 
Seon CL el 
a 
SE ae 
_» Sy 

ot ee 





Have pou experimented todap? 


Try out all of these test strings, which include punctuation marks as part ofa 
string of letters. RUN the test program for each string. Take pen in hand and 
use the chart.to keep a record of the results, for your own future reference. 
Note that the second half of the list is the same as the first half, but with 
quotation marks enclosing the outside of the test strings. If your BASIC 
doesn’t have LINE INPUT, then substitute {NPUT or LINPUT in line 10. 













NEW 
DIM if needed. 
10 LINE INPUT "ENTER TEST STRING: "3 TS 
20 PRINT TS 
RUN 
ENTER TEST STRING: 
















eywork together to assign 
: values and strings to variables. 


) 
As you can see from these examples, the READ statement will assign the 
value or string in the DATA statement to its variable (the READ variable). 
No matter where the DATA statement is placed in the program (first, last, 
or in the middle), the computer assigns the first item in the first DATA 
statement to the first READ variable. 






— | 
el 


——— ae a 
ar ae a F Ca al = 
oifemelss aed ee Se ee oe 









10 READ ASs. BSs CS 
22 PRINT C$s BSs AS 

38 DATA GREAT, THIS», AIN'T 
RUN 

AIN'T THis GREAT 







+t: 

















oben SE ar PTAPT! A a Wer a 
LEUVEN a One 
eas =r op perenne eg Seg Sr ee 
wit “ oo . it co a mala 
i é + he 
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[oe remensenn 











Looking at the last example, notice that the items ina DATA statement are 
separated by commas, but there is no comma after the last item. 


Note commas Note lack of comma 


1 ) Users of Northstar-style 9 9 
BASIC will have to enclose 


a// strings in DATA statements 38 DATA GREATs THISs AIN'T 


'N quotation marks, as well as 


f3| _ 
€parate the items with commas. 4p : ‘ . 


Note that spaces are not counted as part of the string unless the space is 

between words in the same string item. Leading spaces are ignored. Jrai/- 

ing spaces may be ignored, or included as an “invisible” part of the string 

item, depending on your version of BASIC. But imbedded spaces, such | 

as those between words in one string item, are part of the string. 37 





Like we said, the READ statement won’t pick and 
choose among the items in a DATA statement. The 
items in the DATA must be in the same order as the 
variables — numbers only for regular variables and 
strings for string variables (the ones with the $ after 
the letter of the alphabet). 


Another thing you should know about DATA 
statements: Even if several READ statements are 
used in a program they take their values in turn 
from the same DATA statement. When all the DATA 
in one DATA statement is used up, that is, when all 
the items have been assigned just once to variables, 
the computer goes on to the next DATA statement. 
Even if they are located in different places in a pro- 
gram, the computer looks for DATA statements in 
line number order, and takes the DATA statement 
with the smallest line number as the first one. 

























How’s your typing? 


= # 





tan 


Don’t forget ? for PRINT. 






1@ READ A 

2@ PRINT A 

3@ READ 8B 

4@ PRINT B 

5@ READ C 

6@ PRINT C 

76 READ D 

8@ PRINT D 

9@ READ A 

168 PRINT A 

900 DATA 832s 5889, 32 

918 DATA 581s 2084 

RUN 

8 32 <—_—_———_. Value of A‘ from 900 DATA 
9889 ~<—— Value of B, from 900 DATA 
32 —————— value of C, from 900 DATA 
581 ——————Value of D from 910 DATA 
288 ~——— New value of A from 910 DATA 
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Another time you must use quotation marks in DATA statements is when you 
want one or more spaces Jefore or after the characters tn the string. As we 
saw earlier, spaces between words or characters are included in the string. 


It’s just if you want spaces before or after the string that you must use 
quotation marks ina DATA statement. Check it out. 


Type in this program, then RUN it and its several modifications. 


NEW 
1@ READ AS, BS, CS ) 
29 PRINT C$3 BS3 AS 


3@ DATA GREAT» THISsAIN* T <——— three strings ina DATA statement tra la... 
RUN 
AIN‘TTHISGREAT ~<—notso great really... 


38 DATA GREATs, THISs AIN’T  ~<— replace Line 30 with a DATA statement that has spaces before 
RUN or after the string items. 


AIN'TTHISGREAT ~—_ 


the spaces were not included in the strings assigned 
to the string variables. But do not despair... 


\ replace Line 30 again with an item of DATA that uses quotation 
3@ DATA GREAT», " THIS "ys AIN'T 4 marks around the string item to tell the computer to include 
RUN spaces before and after the word as part of the string. 


AIN'T THIS GREAT 


It worked! 


LIST 


1@ READ ASs BS CS 
2@ PRINT C$; | nt 3 AS The computer is informed that we want everything inside 


38 DATA GREAT. " THIS ", AIN'T ace marks included in this string, and that means 
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Or in other: words, GOTO... 


Enter this little gem in your trusty computer: (or was that your testy computer... ) 


NEW ~-—Clear the computer’s mind to concentrate on your next instructions. 


GOTO 10 tells the computer to “go to” 
10 PRINT "THIS IS 4 LOOP.” the statement with line number 10, and 
28 GOTO 1¢ 7 | | to continue RUNning the program from 

there in normal line number order. 


In almost all BASICs you 
can (in some you have to) 


8 f ' . : 
Wait’ Stop! Halt! Cease? Desist 2 es 2010 # ox eh 


GO and TO. 











eerere— Found them? OK, now RUN the program. When 

‘ts ag you get tired of watching the output, depress and 

W)-Sy hold down the CONTROL key, and while holding 
it down, press the C key at the same time, then 

} release both keys. This will stop the computer from 

continuing to forever RUN this unending program. 









ODODOOOOQDOQDOOO 


= 





iagake 





GOOAQOOOGOOOS 






i —— RUN C) 
THIS IS A LOOP. Press and together! 
“a THIS IS A LOOP. 

THIS IS A LOOP. 
THIS IS A LOOP. 
THIS IS A LOOP. 
THIS IS A LOOP. We pressed CTRL and C together. 
3 . : page: x The computer tells you at what line number CONTROL/C 

| 7 broke into the program. You have-to be real quick on the 


ys CONTROL/C to stop a RUN of this program before it 
BREAK IN 12 has filled the display screen from top to bottom and 


beyond. Try RUNning the program several times and see 
if you can stop the RUN before the computer has done 
20 loops. 
4 ; | \ 
“(i READ —_ > 
The computer executed Line 10 over and over again, because the GO TO statement in Line 20 
told the computer to go back to Line 10 every time it finished executing Line 10 and got to 


Line 20 again. This is an jnfinite loop — it just goes on running in circles, repeating itself, 
forever, or until some clever person presses CONTROL and C at the same time. 


Use CONTROL/C any time you wish to interrupt or stop the computer from RUNning a 
Program. On some computers, the BREAK key or the RESET key may perform this task, 
but be careful with these. They may not only stop the program, but also erase it or even 
erase BASIC, so that it has to be reloaded or restarted. 
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Let's follow along as the computer RUNs that last program. Follow the arrows 
through the program. 


START HERE 


1@ LET T=! dO TO OO8 


26 PRINT ~|\ 
a This is a loop. It is a “forever” loop. 


. It goes on and on and on and on and on and on and onand onand on... 
36 LET T=T+1 } 


when the program is RUN 
4@ GOTO 70 









until you stop it with CONTROL/C. 


Here's another way to look at it, a trace of the program. Remember, a 
trace traces the path the computer takes through the program it is working 
on, and shows you what values are assigned to the variables at any step in 
the program. In the column marked T we show the value of T after the 
statement on the same line has been carried out by the computer. In other 
words, we show what value is in the box labelled T after each statement has 
been executed. You can think of it as always being the same little box for 
the same variable T — only the value assigned to T changes from time to 


time. 
STATEMENT VARIABLES & VALUES EXPLANATION 
1@ LET T=1 Assign T the value 1 
26 PRINT T Print the value of T. 


3@ LET T=T+1 Increase T by 1 (add 1 to the old value 


of T). 
46 GOTO 2¢g 

Go to beginning of loop. 
2@ PRINT T Print the value of T. 


38 LET T=T+l1 Increase T by 1. 


48 GOTO 2g Go to beginning of loop. 
20 PRINT T Print the value of T. 


3G LET T=T+! Increase T by 1. 


al tal a] IG) GG) [a] [F) 
; | 
mA iy dw TP ow Py cop Ph] ph NO 


4% GOTO 2 Go to beginning of loop. 
etcete a, etcetera, etcetera 
Some versions of BASIC have a TRACE oe : ma. FR ae 
instruction that shows you the line numbers | | | A | 'D) /h\ i: 
of the statements as they are executed, and Lr LILER i fy) f a [. 
the order they are executed, during a RUN, ek ee a 
even if there are no PRINT statements. This 45 


can be helpful in debugging a program. 















J = "y = —— . - - — - 
—_———,. , > ————, 7 a q 
je o a © ~~ f® @ge, «a - t i he, 
\ base CS — — 7 raed r = 
hee Es SS Saiane Svar 
—_ SEALANT —le = 


a 


You can see that 
results like this: 


It is just a shorthand method of ex 
decimal fracti 


exponent 


ESOO 
SS ene 


Manti ssa 


The E shows where the 


Exponent starts. 
negative; you’!| always f 


The exponent can be positive or 
inda+or— after 


the E to clue you. 


First, some examples of numbers written in the usual way, and then in 
floating point notation, 

One billion 
SS 


Ordinary notation: 1000000000 or if you prefer 1,000,000,000 


exponent 
a 
floating point: 1E+09 


Mantissa 







Volume of the earth in bushels 


In ordinary notation we 
could use commas: 31,708,000,000,000,000,000.000 


Or 31 708000000000000000000 





&xponent 


Floating Point notation: 3.1708E+22 
We 


A... 
Speed of a 
1A = i, 


Snail in miles per second 


Ordinary notation: .0000079 


| oe 


Hoating point notation: 7.9E~06 
Ne 


Tha MUGS: cS og 





The version of BASIC you are using may round off or truncate a 
number after 6,7,8, or more significant digits, adding zeroes as 
necessary to maintain the decimal point location. We needn’t get 

into technicalities at this point, but that is why your computer may 
display numbers not quite matching those in the RUN shown below. 
lf your curiosity is killing you, the BASIC reference manual for your 
system may give you some clues as to what to expect in the way of 
number accuracy, and even the choices you may have. An Integer only 
version of BASIC may not be able to produce decimal! fractions at all. 











DO IT CAREFULLY 





NEW . _ 





{@ PRINT 1000020020000, 123456789 3.987654321 
2@ PRINT -@08@009s ~-200G0GGE54321, «788007007 
3@ PRINT 345-3456E4, .3E-9s 6+-666666E-4 

RUN 





LE+12 1-23457E+88 3298765 

9E-86 6¢S4321E-68 ° 700007 

3°45 346E+26 SE-18 6<¢66667E-04 
List 


18 PRINT 18@8@000000000. 1234567895 3987654321 De,’ 
20 PRINT .@000995 »~@000008654321ls - 7800807887 
30 PRINT 345-3456E4s «3E-95 6666666E-4 


Your BASIC may change the numbers to floating point when the 
program ts listed, or they may stay in the same form as you entered 
them. 


So In the future you should understand what happened if the computer 
gives you a result in E notation. 






+ +4+++4+++4+4+ 8 *© *© © 8 &8 8 *# 8+ PTP FFT ttt 


Because of the way the computer does arithmetic (not like you and me, for 
sure), very small inaccuracies sometimes result from its calculations, which 
may show up as, say, 49.000001 or 48.999999, where you would have . 
expected a computed result of 49 even. It’s not your programming, it’s the 
machine. And here | bet you thought the computer was as accurate as it Is 
fast! 


ag a en se oe 2 a on oS a oO 9 2) | 
i ee oS 0 i fl i, tt nS te, i co eo, oe, oS 


Have pou experimented todap? 


5306080886088 OO8O8SSESO8ECE 

a GOTO @ DO IT HERE! 
> Causes the program to jump or branch to specified statement. 
? (ine no.) GOTO (line number to execute next) 


e 
& 
50 GOTO 10 . 
& 


= POCCCCOHOCSOHOOEOOEOOEOSS 49 


il 


DO |7T NOV! 
















A new null string (although it’s tough to see any difference) gets assigned to R$ 
each time you hit RETURN. Since the INPUT variable R$ isn’t used anywhere 
else in the program, it doesn’t matter what gets assigned to R$. The point is that 
INPUT stops the further execution of program, in mid-loop so to speak, until 
you do something at the keyboard. 


If your version of BASIC suppresses (doesn’t print) the automatic INPUT question 
mark when you include a prompt string, then you can use a nu// string for the 
prompt string, and nothing will be printed or displayed when the INPUT state- 
ment is executed. But the job of controlling the output display speed is stil 
accomplished. Those with LINE INPUT available can use that statement instead. 


CELSIug 


INPUT ""skRs | 


Even though the prompt string is an 


one man) DO IT invisible null string, it still suppresses 
“Nee the INPUT question mark for most 


BASICs. ci He 





LET T= - 30 
PRINT "PRESS ’RETURN? FOR NEXT DISPLAY" 
INPUT ""sR¢ * 

PRINT T3" DEGREES FAHRENHEIT = "35 / 9 & (T — 32):" DEGREES CELSIUS" 

meet T= T+ 1 Sng 4, Ye 
GOTO 30 nes 











‘ a 
aes 


» 
<. 
x 










LST PRESS “RETURN? FOR NEXT DISPLAY SORE" 


it 


2 DEGREES FAHRENHEIT —34.4444445 DEGREES CELSIUS 2 


a, 


% 
? 


DEGREES FAHRENHEIT = -33.8888889 DEGREES CELSIUS 


S DEGREES FAHRENHEIT 


~33.3533333 DEGREES CELSIUS 


ES FAHRENHEIT —32.7777778 DEGREES CELSIUS 


ES FAHRENHEIT 


—32.2222222 DEGREES CELSIUS 





A user friendly program (one that is helpful to the person at the controls or 
keyboard) would include these statements as well: 


22 PRINT "TO QUI T, PRESS ’CONTROL”’ AND *C” TOGETHER" 
23 PRINT “AND THEN PRESS ” RETURN? " 
31 
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_ However, there is a definite catch in using more than two Characters in a 
variable name: many versions of BASIC only look at the first two 
characters in a long variable name. This can lead to interesting results. 








LET JOHN=15 
LET FRUMP=13 

LET GERTRUDE=14 
PRINT JOHNS FRUMP3: 
PRINT JOES FRANNY3 GENE 





















14 —————— Line 40 printed this. 





Yet another good idea, though unfortunately not fully implemented, is 
the use of datanames. In most high level languages, and assemblers for 
that matter, one can call a spade a spade, |f you are using a variable to 
store a total you can call it TOTAL. This helps the programmer to 
remember what goes where. In this BASIC one can call a variable FRAN, 


Reprinted from the article Altair BASIC 
by Keith Britton and Bob Mullen, 

Peoples Computer Company, Vol. 4 No, 2 
(Sept. 1975} 
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| 
| 


WPrevent ‘Unsightly Gallouses! 


F a 
* if i = ar 


> < . . . 
A READ <_ But leaving out LET isn’t the only shortcut our spiffy new BASIC provides 
aa | A ~ \\ = the programmer with callouses on his/her typing fingers. Here’s the short 
a \V/ \I form for entering a PRINT statement: ? 
V 
P een \ NEW For DEC BASIC Plus, use the 
N | { “and” or ampersand sign (&) 
3 ; instead of “’?”. For Atari 
1@ PRINT “HELLO GOOD LOOKING" BASIC, use the exclamation 
208 ? “USING ? FOR PRINT" point (!) as the shorthand for 
PRINT. 


RUN 
isive 4 tak wee ° means PRIN T | 
when entering 


Next, LIST the program and note what replaces the question mark in Line 20 
of the LISTing. | 





LEST 


16 PRINT "HELLO GOOD LOOKING" | 


28 PRINT_"USING ? FOR PRINT"! You use ? when you enter the Program | 
(saves typing). But when you LIST the | 
program, the smart computer prints 

PRINT. (Not true for some dumb 


computers. ) 


Our next little program shows how you can pack and crunch the instructions 
you are giving to the computer into fewer statements, by using mu/tiple | 
statements in a line. | 


ff | 
| i ee most keyboards i 
On this style keyboard, don’t use 7 AOA® a 


SHIFT with this key, or you'll get the tOr: 


asterisk (*) instead of the colon i), POWMOOOQOOOOOOS 


and an instant program bug. 


Use 


(colon) to separate statements. 





NEW 





19 A=S + Be1Q : C=15; D=20 iy ar 
28 7 A+B+C+D 4 LETless LET statements in one line! 


RUN 


5d The ? form for PRINT, remember? 





LIST 


If A=5S ; B=1@ 3: C=15 3 D=2¢ 
20 PRINT A+B+C+p i} 






| 
Before your very eyes, a ? becomes PRINT! q 
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a Make A REMark 


Another statement which must stand alone, or else be the /ast statement in 
a multiple statement line, is the REMark statement. 
NEW 


Computer never sees X = 5, because when it 
1@ REM-SET X EQUAL To 5 3: X=s5 comes to a REMARK, it skips on to the next 





20 7? X line in the program automatically. 
Trey RUN 
x Se Senege g Since no other value was assigned to X, the 
Je wl F Since ; Computer assumes that X = 0, and therefore, 
| prints 0. Did you know that? An undefined 
variable equals zero. 
SIC, P - 
line 
«slash © 
but | 


ly 


NEW 


1@ X=5 : REM-SET X EQUAL TO 5 
26 ? X 


RUN 
5 <a This time the computer executes X=5 
before it sees REM. Then it skips on to 
the next line in the program and PRINTs 
the value assigned to X. 





REMark statements are notes to the person reading a LISTing (or writing!) 
aprogram. They are used to explain what that line or section of a program 
does. REM (for remark) statements are often used to tell where a subroutine 
starts. A subroutine is a section of a program of one or more lines that 
performs a part of the tota} job of a program. You'll hear more of subroutines 
as we get into longer and more complex programs. Meanwhile, if you want to 
document (help explain) your program or tell the reader what your program 
does, just make a REMark. 






Try multiple statements per iff 4 
line in direct or immediate rh J) 
mode, too! F Be 
alt —_A ’ ed 
| ee, 
=—e ee, 
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WINS OF ONTISSION 
and other errors in my ways~ 


A word from your friendly author: 


All the spaces I leave in BASIC statements are not needed: NO space is 

needed after the line number, nor after the BAS] C statements such as PRINT. 
READ, DATA, INPUT or other instructions, nor after the items in a PRINT 
statement (after commas or semicolons). Spaces are NOT needed between 
DATA statement items either. Each space uses up a little of your computer’s 
memory, but this is not a problem unless your programs are very long or 

have alot of DATA values or ga lot of strings. I put in those spaces just to 

make it easier for you to see what is happening in each Statement. And 
remember, if you wish to save on fyping, you can leave out REMark statements. 


= 


program is RUN. This is an invisible process—that is, it doesn’t show in the 
program itself. If you are sharing your programs with other people, it is 
considered good programming practice to initialize the variables in the pro- 
gram, rather than letting the computer do it for you. This can avoid confu- 
sion to somebody else using your program, or even to you if you look back 
at your program a while after you first write it. 


Refer back to previous explanations and rules of BASIC, for help in writing 
programs and help in debugging your program if it doesn’t RUN without 
error messages. 


You can tell which programs I couldn’t type in correctly on one try — they 

are LISTings with the ? changed to PRINT, and NEW was pasted in place 

at the top. Don’t let typing get you down. It’s frustrating to get to the end of 

a complicated multiple statement line and then notice a mistake at the beginning. 
My frequent errors — 


(1) Forgetting the - that separates statements in a multiple statement line 
fam especially prone to forgetting the colon after a PRINT statement that 
ends with ; or , (the technique used to make the next PRINT statement 
Output appear on the same display or printer line as the last PRINT statement 
output). 


(2) Forgetting the ? for PRINT, especially in direct mode, or when the PRINT 
statement is in the middle of a multiple statement line. 


(3) Using the SHIFT key when I shouldn’t, or not using it when I should. 
Note that using SHIFT and typing a letter key will usually display and 
PRINT that letter al] right, but it might not RUN, giving you a 
syntax error—an invisible error! To cure the problem, retype the line 
and don’t use SHIFT with the letter keys, except for special symbols. 


(4) Leaving off the quotation marks at the end (or in the middle) of a 
long program line, for example, in a series of PRINT statements such 
as instructions for a game, where the PRINT statement line doesn’t 
end at the end of a sentence. You have to type the whole line over 
again, just to put the quotation marks in, unless your system has a 
£00d program line editor and you take this opportunity to become 
Jamiliar with, it. (Actually, some BASICs will be tolerant if you leave 
off the final quotation mark at the end of a PRINT statement string. ) 61 
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... THEN statements, The 
comes in six different delicious 

e next page. All of the members 

N Use any one of these six different 
t Isn’t what tells the family 

comes after THEN, that is, what 


condition (the part bet 
flavors, which you will 
of the IF...THEN fam 
conditions between | F and THEN. But tha 
members apart. The distinction is in what 
action to take /f the condition is true. 


The original IF ... THEN 
to use for conditional] bra 
THEN. tn fact, you have 











statement, the one that is the most common statement 


nching, is like having GOTO (line Number) after 
to enter it like this in Atari’s original BASIC: 


IF (condition) THEN GOTO - (line number) 





But even in most old-fashioned BAS| 
GOTO after THEN (like | 


to a variable, you know , 


Cs you can write it like this, without the 
eaving out LET ina statement to assign a value or string 
) 


IF (condition) THEN (line number) 


The GOTO is 
understood, so 
you don’t have 
to put it in. 


There are two Possible outcomes or Possible result 
COMparison can be true, or it can be false. Let's lo 
Comparison true, or comparison false. 


s of the comparison. The 
Ok at these two cases: 


———- a=. 


{ Ye False 


pe) THEN (action to take) IF (condition false) THEN (action to take) 
' the The computer does 





But if the computer --. then the computer 
what this Part tells compares and decides forgets about this part 
it to do when the that this part is not and goes on to the 
Condition is true, 


true (which means it 


next line numbered 
is fa/se, of course) .. 


Statement in the Program. 


4&5 
















e false IF...THEN 
-. | HEN Condition 
, aS well as 


GOTO Line 10 and 
Continue RUNing 
all this, and 99 On to the NEXT statement On this Line. > the pr Oogram., 
2g IF X<g THEN PRINT “CONDITI ON TRUE: "3 Xs "< gre 


: GOTO 1g 


lf the condition is true, PRINT 


OS . For S: 
If the Condition is false, go on to oH NOSE Keyboards 
the next line numbered statement, ) 
and forget the rest Of this line. Use and together for 





“less than” ‘ 
Use (wr) and C) together for “greater than” > 
























Use and 2 together for “equal to’”’ 
NEW a 
S_REM~COMPARE anp DECIDE IF x reo LESS THAN zERO = 
1g | : 
20 IF X<g THEN PRINT “CONDITION TRUE?" XZ "Ee ge * GOTO tg ¢) 
38 PRINT "CONDITION FALSE: "3 XZ "1g NOT GO" ¢ GOTO ig 
4 g DA TA 4 é g 6? 3 é 6 ee = 2 Y 7 4 9 os °° ] 2 ptt Mire RE Tiree ee 
RUN 











CONDITION FaLse; 4 IS NOT < g 
CONDITION FaLsE; g IS NOT < g 
CONDITION TRUE:~3 ¢ 

CONDITION FaLsp; 6 IS NOT < g 
CONDITION TRUE: <0 < 9 
CONDITION False; 7 IS NOT < g 
CONDITION FALSE; 9 IS NOT < g 
CONDITION TRUE:-15 < g 


And, of Course, somebody's gotta be 
different, and it’ 
SI 


Cs this time. 














statement line. Check page 74 for the 
70D ERROR IN 1g 





The Computer has ODed. 
It means Out of Data error, 
but don’t Worry about it. 









@ THEN PRINT "“CONDITIO 


N TRUE? "3 $ “=> gee * GOTO 1g 
, “CONDITION FALSE:"3 CF "IS NOT => Or ¢ GOTO 
4s Os -3e 6s “2, 72 9» -1le 


NDITrIOV TRUE: @ => 


FALSE3~3 IS NOT => 8 


Same error message Saying the computer 
tried to READ another value for X after 
TRUE: 9 >. 


2 IS NOT => g ce. In this case, it j t 
IN } g @ Convenient way of stopping the com- | 
puter after alf the work | 





TEST AND DECIDE 
ae, 


| 
1 general, 


| The next program has three IF...THEN PRINT statements to test the 
ee what 


same value up to three times. There are three different conditions to test. 
Notice the multiple statements in lines 20, 30, and 40. When the IF... 
THEN PRINT condition is false, the computer skips to the next /ine 

| numbered statement, and ignores any other statements following the 
faise |F... THEN on the same line. But if the IF...THEN PRINT condition 
is true, then the rest of the IF... THEN PRINT statement is executed, 

as well as any statements that follow it on the same line. 










ELESEEELELELELEEEE EEE 
IF «ee THEN ? = IF eee THEN PRINT 


ELEEELECEEE EEE EEE SESE 


or entering 
' question 
for the Wi 
1EN PRINT 





S REM~ NEGATIVE, POSITIVE AND ZERO NUMBER TESTER 

1@ INPUT "INPUT @ (ZERO) OR ANY NEGATIVE OR POSITIVE NUMBER": N 
20 IF N<@ THEN ? “YOUR NUMBER IS NEGATIVE." : ? + GOTOIG 

3@ IF N>@ THEN ? “YOUR NUMBER 1S POSITIVE." : ? : GOTO 1@ 

4@ IF N=@ THEN ? “YOUR NUMBER IS ZERO" : ? : GOTO 12 

RUN 


INPUT @ (ZERO) OR ANY NEGATIVE OR POSITIVE NUMBER? 8975 
YOUR NUMBER IS POSITIVE. 












iS 
ss 


INPUT @ (ZERO) OR ANY NEGATIVE OR POSITIVE NUMBER? -354 
YOUR NUMBER IS NEGATIVE. 


INPUT @ (ZERO) OR ANY NEGATIVE OR POSITIVE NUMBER? @ 
YOUR NUMBER IS ZERO. 


_ INPUT @ (ZERO) OR ANY NEGATIVE OR POSITIVE NUMBER? 


Reims won Use CONTROL/C 
READ i to get out of a RUN when 
<> | the program is stopped 


.: — at an INPUT statement. 
LEts take a closer look at one of the IF ... THEN. PRINT statements. 


PRINT a blank line 
(between loops in 
the RUN). 


the condition is true, PRINT the string, and go on to the next statement. => ¢ 


@ IF N<g THEN ? “YOUR NUMBER IS NEGATIVE." : 2? : GOTO 1g 


4 : 


Sor Gition is f2/se, go on to the 

ne nu mbered statement, and 

Sane re of this line. That means 
anything followi ng THEN, 





GOTO line 10 and 
continue RUNning 
the program. 
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Yo Print or Not To Print: 


That is the Question 


Now please pay close attention to these next little programs using the 
IF... THEN statement. Line 20 is used to decide whether to PRINT a 
value or not. When the condition is fa/se, the computer skips on to the 
line 30 PRINT statement and PRINTs the value of R. But when the | 
condition is true, the computer branches back to line 10. It does not 
get to line 30, and therefore it doesn’t PRINT. Instead, a new value is 
assigned to R from the DATA. Then the new value is tested by line 20. 
And so on. 





= = 
+i ll 


At first, this may seem backwards to you. Just remember that the action 
indicated after THEN only happens /f the condition is true, Now go ahead 
and try the programs. 


5S REM-DON'T PRINT NUMBERS LESS THAN ZERO 
“10 READ R 

=" 20 IF R<@ THEN 16 

36 27 "Res R 






Aji ! 
1 | 


: " fy ai| 
2 /; | Ii : T, 

















4@ GOTO 10 

5@ DATA 45 Gs -35 65 “2s Ts Js -12 

RUN 

R24 

R= Qg 

, . : CHECK THE TRACE ON THE NEXT PAGES > 
R= 9 


20D ERROR IN 18 c The computer has ODed again. 


Still not to worry... 


Now change the condition by replacing Line 20. (Leave out the REM if 
you want to.) | 


S REM-DON’T PRINT NUMBERS GREATER THAN ZERO 

28 IF R>@ THEN 16 

RUN 

R= @ 

R 2-3 

R 2-2 

R =-12 Same error message saying the computer 
tried to READ a value for R after all the 

20D ERROR IN 1¢ Sa values in the DATA statement had been 


used once. 


eS 


a_i a a me es ee —S a cee a ss ee ee ee ee 


=, | The computer can be instructed to READ the same data from DATA state- 
7 ments more than once (provided that the Out Of Data error condition has 
Not stopped the RUN). Use the RESTORE statement like this: - 
120 RESTORE 


it tells the computer to begin READing data again from the beginning of the 71 
first DATA statement, | 


























NG stop the loop! 


Do what this says if the condition 
# is true. In this case, go to the 
Line number a * Statement with this line number. 


3@ IF T<12 THEN 1@ 
















canoe 
Ras a | fe" 
f \ Go on to the next line numbered 

) statement if the condition is fa/se. 

f DO IT That means go to the next statement 
. with the smallest line number greater 

"ee S. i a Na! than 30. 
ae se ih a 





Now enter and RUN this Program to stop a loop after a certain number 
of times, using the IF...THEN statement to do the checking. 


NEW 


S REM-SELF-STOPPING COUNTING PROGRAM 
18 ? T 


20 T=T+] 
30 IF T<10 THEN 1g 


4@ 2? "NOW T ="3 T3 "SO I STOPPED MYSELF." 
RUN LEE 






, f=... 
g <z 
1 
2 
3 | : 
4 e. 
5 ee 
6 en 
8 > ae 
9 os 
OW T= 1g SO I STOPPED MYSELF. 7 

Oisyat? —~ 





< 7 J 
a = aah ks “Mt A : 


Our IF statement (Line 30 above) asks the profound question, ‘‘Is the value 

Of T less than 10?” When the answer is ‘‘true,”” THEN: 10 tells the computer 
to branch or loop back to Line 10. But when the answer to the profound 
Question is “no” (when the value of T finally reaches 10), the computer ignores 


the rest of the IF statement and “falls through” to the next line in the pro- 
gram (Line 40). 
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AND and/or OR in IF... THEN 


The double-threat actions of IF... THEN 
side of an [F : ae 


Part on the comparison 
allow more than one 


is the format. 


| (line no.) 











IF (comparison) AND (comparison) THEN (action) 
— te 


Two separate comparisons, joined 
| by logical AND, and both comparisons 
| must be true for the action after 
THEN to be executed 


tl 
10 IF B >= 4 AND B <= 10 THEN ? “FROM 1 TO 10” 
An application of this IN aA 


‘f iV) 
IF...AND...THEN If both of these ... then do this. 
_ format is on page 123. ‘comparisons are true... 

| ——————————————————— ' 


















Two separate comparisons, joined by 
logical OR, and if e/ther one js true, 
the action after THEN will be 
executed. Also, if both comparisons 


are true, the action after THEN is 
executed. 


tie 
10 IF mM « j OR M > 10 THEN ? "NOT FROM 1 TO 10" 


Each comparison must be complete. Two values ( 


Or Numeric variables assigned values) or 
two strings (or string variables) must be specified f 


if the same variables are used in the two dij comparisons joined by AND or OR. 
Check the examples above. 


Q > 0 > u rT 
10 IF mM < 1 OR 10 THEN NOT FROM 1 To 19 
Complete 


Incomplete 
comparison. 


comparison: 
it doesn’t tel 
what 10 is compared to. 


Wanna get fancy? You can string a bunch of comparisons together with AND and/or OR. 
For Example: 


(line no.) IF (comparison) AND (comparison) OR (comparison) THE 


N (action) 
If both of these -.. OF if this ... then take 
are true... is true... action! 


twa ch Out: you must be very, very careful of your logic when getting this sophisticated . . . 
“Omplicated|! Stay tuned for more exciting decisions with 1F=THEN later in this broadcast, 


» <Xample of this |F.__ AND ...OR... THEN format is demonstrated on page 128.) 
>> BE >>>>>>>>>>> 0 cccoceccen 
= 'S another dimension to comparisons (and to arithmetic, too) that involves formal 
ICal logic beyond the scope of this introductory book (actually, beyond the scope 
_ or). If you hope to use computer control other devices 
Te sony re laboratory, and especially if you have a math background, this 
2 wi 


hereby referred to your system’s reference 








Assigning values or strings to variables is often done using the INPUT statement in 
; a GOTO loop. This technique requires a way to inform the computer that you 
a have finished entering data (making entries), and that the rest of the program 
beyond the GOTO loop is to be executed. The method uses a code word or value, 
also called a flag (as in ‘flagging down the bus’). An iF ... THEN statement 
checks each INPUT variable assignment (every entry) to see if the flag or code 
word was entered. If a match for the code or flag is found, the IF... THEN 
statement causes the computer to branch out of the GOTO loop containing the 


INPUT statement(s).) y 220000000000000000 
ry % 




































Forcing people to use CONTROL/C to end a RUN 
of your “real life’ programs is definitely gauche. 
More tasteful programming etiquette requires giving 
the people using your program the flag option, or, 








gO IF pe aoe —_ a eee eee for string entries, one like this: 
gr ; ak io 2? "WHEN FINISHED, TYFE *STOP*” 
e tlag checker 20 INPUT “YOUR ENTRY? “; ES 
(not the checker flag, indy fans.) =) IEF E® = "STOP" THEN END 
als =,m mR PP t<: Pot >: 


NEW A flag 
= REM —-- FLAG DETECTED BY IF... THEN ‘ 


io FRINT "WHEN FINISHED ENTERING DATA, ENTER =o" 
20 RINT “AND I WILL CALCULATE THE AVERAGE." 

30 INPUT “HEIGHT IN INCHES?";H 

40 IF H = —- 99 THEN 820 

30 LET F = F + i - Line 50 keeps track of the number of entries. 
40 LET G€ = € + H Line 60 keeps a running total of all data entered. 
/O G0TD 30 

AO 6FRINT “AVERGGE HEIGHT I5 "5;C / fT 


ae 














—_ 


RUN - | 
WHEN FINISHED ENTERING DATA, ENTER -99  - 1 
AND I WILL CALCULATE THE AVERAGE.  a- I 
HEIGHT IN INCHES?40 .— 
HEIGHT IN INCHES?50 

HEIGHT IN INCHES?46 

HEIGHT IN INCHES?48 

HEIGHT IN INCHES?45 

HEIGHT IN INCHES?S2 

HEIGHT IN INCHES?41 

S HEIGHT IN INCHES?44 gue’ 
> HEIGHT IN INCHES?45 

= HEIGHT IN INCHES?-99 

' AVERAGE HEIGHT IS 45.66666467 


a 


















In this era of energy shortage and water drought, we on the West coast are becoming 
extremely conscious of energy consumption and would like to share our ideas with 
you (your turn is coming!). In terms of water, we know the facts and figures and 


many families measure water in terms of flushes per day and things like that. Below is il 


(1 cubic ft. = 7.5 gal.) Use INPUT statements to enter the variables and DATA 
statements to contain the constants (from the table), 


This may be a long program, but it really isn’t that difficult. Your Output statements | 
should look like this: PRINT’You USE aPpRox. a TE"GALLONS / MONTH OR "31/7.53 “CUBIC FEET 

PRINT'THAT IS AN AVERAGE OF "31/33 "GALLONS PER Day" 
SNOWEF ec eecccscceeeG gallons/minute tub bath.... 20 gallons | 


dishwashing........ 15 gallons dishwasher. .16 gallons 

toilet flush.........6 gallons (check yours) 

outdoor watering...average hose washing | 
10 gal./minute machine....35 gallons 


VANIOUS +e +eeeeeee4..YOU guess/day 300 DATA 6420+15+ 1656.35.14 


Once the program works, you can change data (reduce flushes, showers, 
etc.) and see how much water you Can save. 


Compute your water bill! 
You attempted to Compute your water usage for the month in gallons. 
Now for the bad news, the bill. 


Assume everyone Pays a meter fee of $2.85 per month and that water is 
billed by the cubic foot (remember: 7.5 gallons per cubic foot). 


Write a program to compute your water bill if you are charged $0.50 per 
100 cubic feet used. Enter usage in gallons (don’t forget to add the meter 
fee). For 6000 gallons the answer is $6.85. 10,000 gallons = $9.52 

and 20,000 gallons = $16.18. 


Using the data from Problem 5 above, let’s assume the water company 
starts to penalize large users by charging more for water used in excess 
of some ‘normal’ amount. Let's assume a family of four is allowed 
8000 gallons per month and is charged $0.50 per 100 cubic feet for 
those 8000 gallons (plus the meter fee), For any gallonage over 8000, 
the charge is $1.00 per 100 cubic feet. Write a program to compute the 
water bill under this system (it could happen... ). 





Sell computer time to a neighbor... for fun and Profit! You'll need 

a timeclock of some sort and a computer program to do the calculations. 
Charge $2.00 just for the privilege of using the system plus $0.05 per 
minute for the first 45 minutes and $0.03 per 100 minutes used. 


45 x .05=2.295 

(100 — 45) x .03 = 1.65 
connect fee = 2.00 
Total = $5.90 


Tip: What if the user uses less than 45 minutes. Don't forget to ‘program’ 
for that possibility. 


Sample DATA statement: 4@ pata MARCUSs94925sLINDAs 94061, JERRY, 94061, LARRY. 06542 


You are about to travel to zip code area 94061. Read through the names in 
your DATA statements and select and print only those names in Zip 
area 94061 so you will know whom to call on while you are in the area. 79 








Use direct mode to experiment with the SOR(X) function. 


Try the examples 
below and try your own ideas. 


PRINT SQR¢199) 
12 


A variable, 

a value, or an 
expression to 
calculate. 





? SQRC(85) 


9221955 What goes here 
inside the parentheses 
is called the argument 


? SQRC1), SQRC2). SOR(30, SOR C4) of the function— 


? SQR(5)3 SQRC6)3 SQR(7)3 SQRC(8)3 SQRC9)3 SaRcia@) 
2023607 2.44949 264575 2.82843 3 3- 16228 


Now, still using direct mode, try to make BASIC find the SOR of a negative 
number. 


? SQR¢-25) 


?FC ERROR 


Yee 


? SQR(103) See, | told you so, BASIC tells you that 
12 you are misusing a FunCtion. 


“FC ERROR” means “Function Error” 
BASIC feels abused when you misuse 


? = ) a function. The error messages differ 
SARC-188 from one version of BASIC to another, 
: but apparently BASIC doesn’t like to 
?FC ERROR 


compute square roots of negative numbers. 


Next, try some calculations that include the SOR function. 


? S*SQRC9) 
1S 


? 5*(19+S5aR(9)) 
65 =. 


Don’t forget to keep your parentheses Paired, 
a right parenthesis for each left parenthesis, 
or BASIC will lay a syntax error message on you. 


=7 : Z=SQR(X) : ? z 
2264575 


8] 


] 1.4142] 1.73295 2 but let’s not squabble. 






























calculate. 


The argument 
| can be a variable, 
| a value, or an 
expression to 


tells the computer to find the integer part of a positive number. 


The integer part of a number is the whole number part without 
the decimal traction, like this: 


INT(5.6) =5 The integer part of 5.6 is 5. 


Find the integer part of the numbers in the INT parentheses, using direct mode. 


? INTC3. 1) 
m4 


“_ 


? INTC3.9999), INTCI@l.1)4 INTC3.14159) 
3 131 3 


Now try negative numbers. The INT function returns the next more negative. 
integer. INT(—5.6) = —6. The integer part of —5.6 is —6. 


? INTCSe1)s INTC-5e1), INT(5-9999)4 INT(-5.9999) 
3 aS, > =©6 


| See the difference in the 
| way the INT works with 
a negative number as 


compared to a positive 
number? 


Find the integer part of the square root of 52. 


? SQR(S2)s5 INTCSQARC52)) 


7Teo2ttt 7 Ween, Note the clever use of a function inside the 


parentheses of another function. Again 
BASIC starts on the inner most set of 
parentheses and works out. Don’t forget 
to match each left parentheses with a 
right parentheses. 
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Now let’s have the computer do the problem. Note that we instruct the 
computer to PRINT the value of M after each step of the rounding off 
process, just to help us see how the process works step-by-step. 


1@ M=17.95*".06 : 2? M 
28 M=M*10@ : ? 
3@ M=M+.5 : ? M 
4Q@ M=INTCM) ¢: ? 
58 M=M/1@@ : ? 


M 





1.077 ~@ The calculated value to be rounded off. 

107. 7 <th The decimal place moved two places to the right. 
188. 2a The round off constant (.5) added on. 

| 198 ~~ The decimal fraction chopped off. 


1¢28 ~<a The decimal point returned to its rightful place, 
two places to the left, giving us even money. 


| i 9 The same results may be accomplished in one statement. (You can use 
“aa 5 direct mode seeing as it is a one line instruction, ) 
Oo Se 
OG? 


2? INTC17.95%.G6"1GG+. 5)/18@ 


1.98 y, 


The calculation of tax Badd round-off constant 










Move the decimal point 
over 2 places to the right. 


0) Take the INTeger part of the result of 
the calculations inside the Parentheses. 


Bast step is to divide by 100 to move the decimal 2 places 
to the left, where it should be. 


Remember this example to use in your own computer programs. Use INT 
for rounding off calculations involving dollars and cents — 


NEW 


1@ M=17.95*. 86 | 
20 ? INTCM*190+.5)/199 
RUN , 


1.08 M can be the result of calculations, or it can 
be a value calculated earlier in the program. 
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The third function we want you to learn is the RND(_ ) function. Random means that 
something happens just by chance. It’s like picking numbers out of a hat. The RND 
function is tricky. When you instruct the computer with the RND function, it gives you 
a random number (that looks like a decimal fraction) between zero and one. Never O, 
never 1, always between, my friend. If the RND number (the decimal fraction) is very 
small, that is, very close to zero, it may be printed in floating point notation. 

( we number, variable, or calculation found in the parentheses of these functions is 
often referred to as the expression, parameter, or argument for the function . .. wanna 
fight about it? There are three types of arguments that may be used in the parentheses 
for the RND ( ) function, for three different effects in most Microsoft-style BASICs. 
If your BASIC doesn’t seem to follow our patterns in the RUNS, see page 89. 


You could do the CONTROL/C operation to stop the loop ‘mmediately after you type 


RUN and hit RETURN, or use the Press RETURN To Continue technique (page 50). 


_ — 
~ at sy, 

~~ i; 
* My 


Ya a 
Ya - 
a 
ow Me 
i 2 ss hy, 
re ~*~ 
hy . 
. > i. 
* 7%, i 
= - 
+ ‘Sie ~ # 
= i, 
- = 
% - = 


RND(i 


RND argument is positive. 


To change the 


NEW display pattern, 
insert a comma 
or semicolon 
1@ X=2 J before the colon. 
28 ? RNDCX) : GOTO 2g 
RUN 
- °©58438 Don’t expect the 
°8267824 RND numbers for 
388994 your RUN to be 
the same as these. 
iets After all, they are 
i supposed to be 
209046 “random.” 
°599886 
£<« this happened 
BREAK IN 29 because we 
pressed 
CONTROL/C. 


' Now RUN the program again, 
/ and compare the RND numbers 


from this RUN with the RND 


E Numbers from the first RUN. 
RUN 


*744855 

"460434 

: pe ! Note that the 
RND numbers 

*781146 from this RUN 

*3998584 of the same 

*457448 program are 
different. 

BREAK IN 29 


Now make a written note of the /ast 
RND number displayed by your 
Computer’s RUN: 7 

and then go on to the next column 
of activities. 





14 


| 


bea 


RND(0) 


Zero for the RND argument. 


~ Now replace line 10 with this 


new line 10, and after a few 
sample RND numbers, stop 
_ with CONTROLY/C. 


1g X= 
RUN 
«457448 : 7 
Note this RND 
°457448 number, then 
© 457448 look back at 
© 457448 the last RND 
©457448 number in the 
~457448 previous RUN. 
? 
457448 Interesting, eh: 


BREAK IN 29 


Now RUN again, then stop 

the execution with CONTROL/C 
and compare with the previous 
RUNs. 


RUN 
© 457448 
© 457448 
© 457448 


BREAK IN 23 





Change GOTO 20 to GOTO 15, and insert this statement: 15 INPUT “rT RS 


RND argument is negative. 


Replace line 10 again, like this: 


10 X=-.4 

RUN 
8893986 
© 883906 
8093986 


BREAK IN 22 


= Again, stop with CONTROL/C, 
~ do another RUN, and compare 
_ it with the others. 

= RUN 


° 893906 
893906 


BREAK IN 2@ 


“ Another negative value for X. 


1Q@ X=-] 
— RUN A “small” 
a . RND number 
-  Te65943E-86 (close to zero) 
T+ 65943E-86 is printed in 
Te 65943E+86 floating point 
7°6S943E-86 notation. 


| BREAK IN 26 


; And yet another negative value. 
; 16 X=-«3 
e RUN 


985996 
985996 Hnmm...confused? 


Perplexed? Read on 
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BREAK IN 284 &all will be revealed. © 

















RND ARGUMENT IS NEGATIVE 


Using a negative number as the RND argument also gives you a repeated RND 
number each time the same RND statement is executed. However, for each 
different negative argument, you get a different repeated RND number. You 
can use decimal fractions as the negative arguments, too, such as RND(-—.3) 
or RND(—9.32). Everytime you RUN the program or execute a statement 
with the same negative argument, you get the same RND number. 





Demonstrate how RND works with negative arguments, using direct mode. ‘| 


? RNDC1)S RNDC-.4)3 RND(-.4)3 RND€-.4)3 RND(-17.5)3 RND(-999) 
°985996 .883986 .883996 °803906 8.37562E-26 1. 96788E-93 


Try you own demo with your own choice of RND arguments. 


- x Se te i ee ee 


ee => etn oat ta is ili aie 


—— 


oN In some cases, it is useful to have the same list of RND numbers used in a 

READ ‘\ program every time that program is RUN. This might be the case for some 
_ simulation programs. (You'll hear more about simulations later on.) In 
effect, the RND(—.3) gives the computer an initial RND number to start off 
the list, and the RND(1) picks up from there and keeps generating more RND 
numbers. Try our list repeater program. 





, DO IT \ 
i 4 


he, 
. 
a - he 


NEW 





S REM-RND NUMBER LIST REPEATER 
1@ X=RND(-.3) 


20? RNDCI) Change the display 


pattern with a i] 


38 GOTO 22 comma or semicolon. _\f your version of BASIC didn’t seem to 

RUN | follow the format of our RUNs, not to 
995996 | worry. In some BASICs, you get repeated 
° 278418 | new RND numbers between 0 and 1 only 
504185 Wi if the argument is one. Arguments greater 
© 885868 than one~say, RND(10)—produce 
222181 | random digits from 1 to 10 inclusive. 
©457995 Try it out! Atari, DEC BASIC Plus and 


Use CONTROL/C to stop the RUN. ' some others require a separate program 


BREAK IN 2@ | statement to tell the computer to 
| generate a different RND list of numbers 





RUN New RUN, same list. for each RUN, and the statement looks 

905996 like this: 

276418 | & RANDOMIZE 

eeeecs Ml or like this: 

Bot Hit 6& RANDOM 

i | The RANDOM or RANDOMIZE 

_ §tatement comes before the first 

BREAK IN 29g RND function in the program, 


NOW IS THE TIME FOR ALL GOOD PEOPLE TO EXPERIMENT 
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NEW 
Keep your parentheses paired! 
10 2? INTC1@*RND(1))413 : GoTo 12 
RUN Now why do you suppose that semicolon is there? 
7167 2 5 78 1 2 6 6 5 9 2 8 es 8 og og 
Seta © 8 I a 7 & S&S 6 a @ es 
BREAK IN 18 
RUN New RUN, new list of RND integers between 1 and 10. 
10 9 9°75 % 4 47 5 26 5S 11 4 8 9g bf gg g 
1@ 9 3 7 9 2 4 7 7 l 6 9 2 8 
BREAK IN 19 
MABAENneRbnnnREAS eT Tee Tee 
How about random numbers from 1 to 100? Simple! 
1g ? INTC I@S*kRNDC1) 413 3 GOTO 1¢ 
RUN 
| 65 42 76 57 63 5 $7 27 7 22 $52 88 9 60 83 42 9g 32 
83 98 44 62 11 1! 64 88 964 94 Jil 72 «Qi 45 14 66 85 8] 
35 8G «9g 15 95 71 47 93 74 82 39 96 8 93 83 79 85 
BREAK IN 1d 








pe Take out line 30. 
32 

1@? X*RNDC(1)", 
4@ X=INTCX) 30? Xs 
45 X=X+! ? xX 


" X*INTCX)", © Xaxeyer [ 


s 
® 


You do a LISTing to see the modified program. It should RUN like this: 


RUN 
X=RND(1) X= INTCX) X=X+1 
951837 9 12 
°376529 3 4 ee 
-220719 2 3 ahh Fea fe 
°379846 3 4 '¢ un @/" zy 

ee || i ht 3 ( 
*818024 8 9 jie Ihara “will | — > 
° 989366 9 1g geal * (| HN 
5° 23684E+G3 @ 1 7d | || ec 

SIZ Mi «il = 
© 281303 2 3 SS WEE 


i $ } | 
} \) iF ili Wal] RSS 
One, Wit 


Wohi 


me, 


i it 


| I 
BREAK IN 45 é 


ER YO a ae og 


Or get rea! fancy and do it in one line like this: 





oe 
ie i 
=, *. 2 
=A 


EO Oy og 


ers from 1 to 500 inclusive, and 1 to 1000. 
ut random numbers from 1 to 6? Even trickier, | 
, and from 50 to 100. Answers are hidden two 
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Go ahead and try it for numb 


f 


pages forward. 












2 vd vi ae i 
: 5 * 7 +e 4 +@e <=? | 
=) = @ : = 5 a 0 
sal: a20/02 sem = 
a : ff ‘os 3 a i 4 
“ ¢ a ye rc x 
S | ess = - “4 “% 
- 4 - | 2 & Z - ob 
be — o- be - % | 
z2¢@ sie 
z et id ig Zemo 2 





EXPLAINED 


Don't forget that (1) you can use ? for PRINT when typing in instructions, 
and (2) a PRINT with no instruction after it leaves a blank line in the printout. 


31Q@ X=INTCI@@*RNDC1)) +1 
Line 310 gets a random number between 1 and 100 and assigns it to variable X. 


420 IF G=X THEN ? “YOU GOT IT!!! LET*’S PLAY AGAIN “ : GOTO 316 


Line 420 compares the computer’s number (value of X) with the player’s 


Guess (value of G), and if they are the same (condition true), the computer 
tells you “YOU GOT IT!” 


43@ IF G<X THEN ? "TOO SMALL. GUESS AGAIN-* 3: GOTO 41@ 
Line 430 prints TOO SMALL If the Guess G is smaller than X. 
446 ? “TOO BIGe GUESS AGAIN." : GOTO 419 


Line 440 is only executed if the IF conditions in Lines 420 and 430 are 
false and the computer ‘’falls through”’ to Line 440. 


Line 440 prints TOO BIG, because if the guess is not equal to or smaller than 


the computer's number X, then it must be bigger. The computer doesn’t need 
an IF statement to decide that! 


Do you understand how the program works? Then go ahead and enter it 
and RUN it. Hope you get it all typed in right the first time you try. If 


you don’t and it doesn’t RUN, get a LISTing of the program and look for 
your error(s). 


Extra for experts: Develop a version of this game for two players who 
alternate their guesses unti! one of them gets the number. 





Here are clues for Northstar-style BASIC users to adapt the program to the 
IF... THEN... ELSE format. 





420 IF G = X THEN 7 "YOU GOT IT!!! LET’S PLAY AGAIN." ELSE 430 i 
421 GOTO 310 
430 IF G <= X THEN ? "TOO SMALL. GUESS AGAIN." ELSE 440 Hi 
431 GOTO 410 
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| eee ' i 
‘ : f | 1 4 
wd / | If \ \ \ \ 
iy WAAAY 
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, | 


f PPP f erties fi f COU EE iif fj hit te Pie Ay ‘ 
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S REM-USING THE FOR-NEXT LOOP CONTROL VARIABLE To COUNT OFF LOOPS | 


1@ FOR F=1 To I<— This isa FOR statement. 
20 7 "F a3 5 

38 NEXT ¥F <p—T This is a NEXT statement 
48? "NOW F ="3 fF 


RUN 

F = | 

F = 2 | 

# FIRST VERSION 

For4q he 

Fo= 5 

Fo = 6 

Fo = 7 

NOW F = 8 
Now do the following program, and compare it to the one you just tried. 
Lines 10, 20 and 30 of the first version are all in one multiple statement line, 
Line 10 in the second version, 

NEW 


10 FOR Fe! To 7 


- 2? "Fo ="3 Fo : NEXT F 
20? “NOW F s"3 F 


RUN 

F= | 

Fo= 2 | | 

F= 3 

Fo24 | | 

Foz 5 4 =. * IN y NK. 

Fo = 6 pr _- H = "1 
Fo= 7 fi S% # A 
NOW F = g a: 
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VPOACLICE mie DUrFeECK 


om 
i? Vf NEW 


PASE, 
| AO Auth “7 
10 A=5 : Belg 
20 FOR C=A TO B:? "$C ="3 ¢ : NEXT C 
RUN 
es 





Replace Line 10 with the one below. 


QAaaAARAN 
Hone Ho 
mH OMIA 
 MNNNM Boor 
se 9 a 
‘ 
. oa 


1@ INPUT "A ="3 A: INPUT “AND B 2"; Bo 
And add this Line 30. 


38 ? : GOTO 1¢ 
LIST 


16 INPUT "A ="3 @~ ; INPUT "AND B "3 B 
26 FOR C=A TO B ;: PRINT "C ="3 C : NEXT C 
38 PRINT : GOTO 1¢ 


RUN 
A =? 4 
AND B =? & 
C24 
C= § ‘3 _ 
C= 6 ~ Try these values, but don’t stop there. Get the hint: 
c-s 2 A=0, B=6 
C= 8 | ~U, B= \ 
A=—9, B=2 a 
A 3? A=3.3, B=7.5 
, A=6, B=3 << 
etc., etc., etc...... 














Try these input values and what ever else you want to try. 


i A=1, B=10, STEP=2 
A=1, B=6, STEP=.7 

=6, B=1, STEP=—1,5 
etcetera, etctera, etcetera... 





Wes y 


cy 
th. 


r 
fi 
1 r. 





* 


— 


S REM-FOR STATEMENT WITH STEP 

1Q@ INPUT "AQ ="; A : INPUT "B ="3 3B > INPUT "STEP"; 5s 
e@ FOR C=a To B STEP S$ 3: ? "¢ =" C NEXT C 
38? "OUT OF THE LOOP BECAUSE C ="3 

RUN 










TEP? .7 


GJ GAD me ew 


ON UM Py 


& F 


OuWN Sf 


— OV} © © «@ 


| a re, 
= on 4 5 


~ wh 


a 


THE LOOP BECAUSE C 


H 
Or 
eo 
On 


C 
C 1.5 

OUT OF THE Loop BECAUSE C 
A 


il 
® 





We stopped here, using CONTROL/C and RETURN to get out of a RUN 
waiting at an INPUT statement, but we sure hope you didn’t!!! Go ahead 
and EXPERIMENT! 
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EXT statement and the body or working | bes = 
section that comes between the FOR and NEXT statements, in a one line an 3) 
multiple statement. That means you can use FOR—NEXT in one line Sty ry 
direct mode instructions. Of course, it only works if all the Instructions al 
will fit on one line. Try the ones below. by eS 
Tickle your computer’s fancy with this direct mode statement to give ocal 


the computer the giggles. ‘) 


Make this into a line numbered program, if you wish. 


HS="HA " : FOR C=1 TO 50: ? H$3 : NEXT C 

HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA 
HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA 
HA HA 


Now use direct mode to print a table of squares and square roots for 1 to 16. 


Make this a four-statement Program, if you want to. 


This part PRINTs the headings... --and this part does the table. Aren’t FOR—NEXT loops wonderful? 
a ee 

2 Xs, Xe ow, os SQR(X)" : FOR X=1 T0 16 3: ? Xs Xt2s SARCX) : NEXT X 
x Ate SQRC(X) 

| I I 

2 4 1.41421 

3 9 1.73285 

& 16 2 

3 25 20¢ 23687 

6 36 fe 44949 

7 49 2064575 

=] 64 2¢ 82843 

9 81 3 

1d 1d@ 3¢ 16228 

11 121 3¢31663 

12 144 3¢ 464] 

13 169 3e¢ 68555 

14 196 3e 74166 

iS 225 3¢87298 

16 256 4 








READ 


ft has been brought to WV attention 
that certain People have snake Phobia. 


and not to let them Set in the way of 
learning this stuff. The snakes are a 
nice way of reinforcing the loop idea 
hor those especially handicapped by 
this phobia, write fo me at dilithiym 
for a snakeless COPY Of this section, 


—JRB Ae You can use one FOR z. 


It’s easy to 


RIGHT 


NEW 





S REM-NESTED FOR-NEXT LOOPS 
3 


1@ FOR az} TO 


58 NEXT A 
RUN 

NESTED LOOPS 
NESTED LOOPS 
NESTED Loops 
NESTED Loops 
NESTED LOOPS 
NESTED Loops 
NESTED Loops 
NESTED Loops 
NESTED Loops 
NESTED Loops 
NESTED Loops 
NESTED LOOPS 
NESTED Loops 
NESTED Loops 
NESTED Loops 


20 FOR B=1 To dors») fm loop = \ 
3@ ? “NESTED LOOPS" is Nested inside } 
40 NEXT B this Bi 


R coming 
understand by | 


NEXT loop /nsjde another FOR ... NEXT loop. 
Say one loop is nested inside the other loop. 


wrong 


2 REM-CROSSED FOR-NEXT LOOPS 
1S FOR az] TO 3 





286 FOR Be] TO § ~----__) ms. 
38 PRINT ‘ 
48 NEX J 
9@ NEXT Beqe--- o 
RUN 


CROSSED LOOPS 
CROSSED LOOPS 
CROSSED LOOPS 


These loops Overlap, 

and therefore are not 
nested one inside the 
other. 


?NF ERROR IN 9) 


Your error message may be different. 

NF ERROR means Next without For. 
This means the Computer came to a 
NEXT statement, but since the loops 
were crossed, it could not find the FOR 
statement with the same control variable. 
Notice that the computer did execute 
the first FOR—NEXT loop with the 
control variable A. But then the computer 
just followed the rules for the way 
FOR—NEXT loops operate. After the 
third time through the loop, A=4, so 


if a smart Person like you is confused, 
imagine what happens to a dumb 
machine like the computer. 











And now, here’s two loops nested inside another loop, and yet another loop 


outside, 
rr NEW 
SR 10 FOR A= 1 Tog 

e |) <0 FOR B= 1 To ioo: PRINT "HA "3: NEXT RB 
“ayy 30 FOR C = 1 TO 100: PRINT "HEE "3: NEXT Cc 
Race 40 NEXT 4 
WIN sO FOR D = 1 To 200: PRINT “ "3: NEyT p 
NSS 60 PRINT “COUGH CHOKE” 
sul RU 

=> . Check this PRINT 

S statement that prints 


200 blank spaces. 
While humorous here, 
the technique is handy. 


rH CRRRRRRRRARNRRGRRR 
sede There is an alternative to the Press RETU RN To Continue technique for controlling 


the length of time an Output stays on the display screen. Automatic time delays for 
continuing and/or fast changing video screen displays (often the result of a program 





10 FOR J = j TO 5. - 
20 7? "START TIMING NOW. « 2000 Your Test Values | 


500 10000 


30 FOR kK = j TQ Soo 


40 NEXT kK 

SO 7 "STopis 

60 NEXT J Change this value 
RUN to change delay time. 



































| OOOO eeeccccccccccccccccece sp | 
@ & 
& B it 
© FOR-NEXT & | 
© Executes a controlled loop between the FOR and the NEXT statements © 
+ for a specified number of times. S 
® (line no.) FOR (variable) = (parameter) TO (parameter) STEP (parameter) w 
. (line no.) NEXT (variable) & 
& 
4 10 FOR X= 1 TO 30 I is initial value of xX , 30 is final value of X, a i 
@ 20: PRINT X, no STEP is specified, therefore implied to @ h: 
S 30 NEXT X be one (1). It will print values 1 — 30 and 
P= 40 END then continue to next statement (END), > 
GR 10 FOR2=NTOM N, M must have been Previously assigned values. a i 
> 10 FORZ=1TO2 STEP || Will print values from | to 2 ® f 
20 PRINT Z, in increments of .1, as shown below: oe 
z 30 NEXT Z coe eer 3 
‘} | 
G 10 FOR X=30 TO N STEP —1 Wil] count down (negative increments) @ I 
em from 30 toN. “a 
» OPC CCC OC CeCe eoececccccccccceces 
107 h 
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ctions through some paces, and then we’l| 


Now, let’s put three more fun 
explain in full. You can get a 
manipulated by these functio 
RIGHTS, and MIDS. Note h 
the limit of the FOR-NEXT | 


Also study our clever use of the chan 
control variable ( 
many characters in I$ are to be PRINTed for each trip 


NEW 


first clue as to what parts of a string are 
ns, just by looking at their names: LE PES: 
Ow we use the value of LEN(!$) to establish 
Oop control variable. 


FOR-NEXT loop’s 
ons, to count out how 
through the loop. 


ging values of the 
K) in the LEFT$ and RIGHT$ functi 


10 I$="INSTANT BASIC" 
26 FOR K=1 TO LENCI$) 
38 ? LEFT$(1$,4K) 

40 NEXT K 


RUN 

I 

IN 

INS 
INST 
INSTA 
INSTAN 
INSTANT 
INSTANT 
INSTANT 
INSTANT 
INSTANT 
INSTANT 
INSTANT 








control variable K 
to specify how many 


se a aT a Pee Pe ee] 


PRINTed by the 
LEFT$ function. 





Now replace line 30 and 
RUN the program again. 
(LIST if you want to.) 


38 ? RIGHTS$C(I$,K) 


NSTANT BASIC 
INSTANT BASIC 


4 PELLET HELA gli i tts a 











With the strings assigned to X$ and Y$ still in the computer’s memory, 
you can enter direct mode statements to show how RIGHTS works. 


? RIGHTS$(X$,4) 
6789 


Try other Values in 
the RIGHT$ argument, | 


¢ RIGHTS CY$,4) 





TERS 
MIDS$ () returns the part of the str 
string variable inside the 
Start, and the second numb 
tere is no second number e MID$ argument the computer Starts 
at the specified character and Prints that character and the rest of the 





Example: MID$(X$ 4) says to return the part of the string starting with the 
Ath character, and including the rest of the string. MID$(X$, 4 3) Says to 
return the part of the string starting with the 4th character, but only that 
character and the next 2 characters (3 characters total are returned), 


? MIDS(X$,4), MID$(X$54,3) 
456789 456 


Oo $ 


? MIDSCY$,4), MIDS(Y$44, 3) 
PUTERS PUT 





7 searrieber iene ere 





PRINT X$(2,8) means print the string assigned to X$ from the 2nd character to the 8th 
character in the xX$ string. An error will result if X$ has less characters than specified 
by either substring argument, 


PRINT X$(2) means print the string assigned to X$ starting with the 2nd character and 
going all the way to the end of the String. 


PRINT X$(2,2) means Print only one character: in this Case, only the 2nd character in 
the string. 


PRINT X$(1,1) means print only the first character in a string. 
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4 be E LE PH SEMI SETA oe Bee 
| L_N As you can tell, ASC(X) gives the ASCII numerical value of 


"i DO IT » And to go the other way, use CHR$(X 


Ww 7 = J ASCII character equivalent. You can us 
| coded in ASCII numbers to their equivalent characters. 


® 
@ 
® 
s 
® 
® 
® 
* 


each character, 


) to change a numerical! value to its 


e this function to convert messages 


= REM — CAPT. MIDNIGHT’S ELECTRONIC SECRET CODE DECODER 


10 READ 4 

20 PRINT CHR (Ads: GOTO io 

40 DATA O0+82579,71,82,65,77,77,69,82,9 
73,607,455, 76, 76, 89 


RLIN 
PROGRAMMERS po IT RASICALL Y 


OUT OF DATA ERROR IN 16 


$6 Forcing quotes with CH R$(34): 99 


3,32, 68,79, 32, 


10 FRINT CHR¢ 54)3 “HELLO, *; CHES (34);% 


RUIN 
“HELLO,” SHE SAID. 





73,584,532, 66,65, 83, 


SHE SAID." 


instruction in a PRINT statement, it will cause a bel! to 





short line-numbered Programs. 


ring on many terminals, or a “beep” on many others. CH 


If you don’t get a beep or bell, 
either your terminal is mute, or your 
BASIC uses a different ASCI! number. 

? CHRS$(7) | Example: Atari BASIC uses CHR$(253). 


No visual output, just a ringing in your ear. 


FOR J#1 TO 8 ;: ? CHRS(7) : 






Spaces, one for each time 
statement is performed. 





Eight bells and all is well. 


NEXT J 


Also eight line 
the ? (PRINT) 


error, Or just to add interest to the Program. To ring the bell or honk the 
horn, try these experiments in immediate or direct mode, or convert them to 
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Now RUN a program that on/y prints the members names, but not their 
addresses. 






Oops! A mistake in 
entering data in the 
DATA statement. 


DIM M$ if needed. This could mess things 





up. Be sure to double- 
=~ REF PRINT ONLY THE MEMBERS" NAMES check yours. 
10 FOR kK = ji TH aw: READ M+: PRINT LEFT4¢ {(M$,14):= NEXT ke W, 
700 DATA JI.R, RROWN 13140 FRATI in. SEBASTOPOL CAGS472 
Fol DATA PATTI MILieER 11000 SW 11TH STRBEAVERTON ORO7OOS 
FOS DATA FALL BROWN 263 DEARBORN 1OWA CITY LAS2340 
7O53 DATA H. OILER THE ASTRODOME HOUSTON TX?7025 
704 DATA EK. KONG EMPIRE ST. BLDG.NEW YORK NY1TOOO1 
RUN 
J.A. BROWN 
PATTI MILLER 
FAUL BROWN 
H. OILER 


kK. KONG Without typing NEW, replace lines 5 and 10, and add the rest of the lines in 
the Address Labels Program. But it’s a bother to retype those DATA state- 
ments, so don’t type NEW! 


= REM PRINT ADDRESS LABELS 

16 FOR KF = 1TO5 << If you have added more DATA statements, change the upper timit for K accordingly. 
£0 READ M$ These spaces separate These spaces separate 

30° PRINT LEFTS (Mis, 14) city from state. state from zip code. 

40 PRINT MIDS (M$,15,16) 

20 PRINT MIDs (M$, 31,1532" “s MIDs (M$.46,2)3% “: RIGHTS CMS. 5} 
50 FRINT 

79 NEXT ik 

LIST to see the expanded program, then RUN it. 

RUN Uh-oh... Our error 

J.R. BROWN & in entering line 900 

13140 FRATI LN. - shows up here. 

SERASTOFOL C AS 95472 


PATTI MILLER 

11000 SW 147TH ST 

REAVERTON OR 97005 
(The RUN continues until all addresses have been printed.) Again, without 
typing NEW, add these three lines to the program. Now the Program will 
Only print mailing labels for the people in the city you specify, 





MIDS (M$, 31,LEN(C$)) 
DIM MS and C$ if needed. see LEN used to set the MID$ 


G INFUT ™ ENTER CITY NAME: CH function’s second argument for how 
9 PRINT many characters to include in the 


<S IF MIDS (M$,31,LEN(C%)) <> C% THEN Jo substring. This matches the length of 
. ye + the “city name” substring of M$ to 
the length of C$, so that any position- 
f h : , 
LIST to see the expanded program. patel lla holding spaces following the city name 
RUN then skip the PRINT in the DATA statements are excluded 
ENT cn : :NEW YORK statements and try from the string comparison in line 25, 
pee et Naa the next DATA item. How clever of us to remember that 
ER. KONG extra spaces have ASCI! numbers that 
EMP IRE ST. BLDG would mess up the string comparison 
NEW york . : NY 10001 of C$ to the city name substring in M$. 
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Remember that many BASICs leave one leading character space in front of a 

positive value (where the plus sign could go, even if it isn’t printed). When such 
READ - , - 

a positive value is changed to a string with STR§, the string also includes that 

space. Count the characters in the output from the last program to verify this. 

Remember that the decimal! point is also counted as a character. 


Converting a value to a string gives you more control over how and where | 
that number is printed by the computer. This is because you can apply string | 
functions to a ‘‘converted”’ value. 


Let’s say you want to print the value of a FOR-NEXT variable for each trip 
through the loop. You want these numbers to print or display one after 
another, but your BASIC is the type that includes a leading space before 
positive values. Try this technique to eliminate the leading space. 


—————~.. NEW 
{K po it 
oe 16 FOR K=! TO 8 : PRINT K3 : NEXT K : PRINT 
2@ FOR K=! TO 8 : KS=STRS$(K) : PRINT MID$(K$s2)3 : NEXT K 
RUN 
1 23 4 5 6 7 8 
12345678 S @ & 


We don’t want those spaces in there. 

So we change the value to a string, and 
print the string starting with the second 
character. That leaves out the space! 








Coming soon — real applications for values converted to strings. Keep an 
eye out for STR$ used to change values to strings in order to control the 
print position of numbers. 


z 
Sl Hes Era uas 
j atl eS Sets ae ti, 
fo 














Now let’s master another interesting and useful BASIC function that gives 
you more ways to get what you want out of your computer. The more 
control you have, the better your programs will be. Each new BASIC 
function you learn will bring you closer to using BASIC and your computer 
to the fullest extent possible. 
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ye as a i on oe | , sa 
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3 . INT statement to draw a picture or 
graphic representation of the Leaning Tower of Pizza (no anchovies, please). 






NEW 
1202 "xxx" Now do it with TAB. 
eg 2? '* KXx" 
36 7? ™ KxXX* NEW 
407 " XXX" 
58? " AXX" 
RUN TABC@O)3 “xxx 
XXX TABCI)S xxx 
XXX TABC2)3 “xx 
XXX TABC3)3 "xxx" 
XXX TABC4)$3 “xxx 
At AK 
XXX 
How about a more automated tower graphic? XXX 
Note the use of the FOR-NEXT loop control 
variable to get the “lean.” 
| _ 
1@ FOR X=@ TO 4 Many brands of computers have special instructions 
20 ? TABCX)$3 "xxx" for producing and controlling graphics. These differ 
36 NEXT X so greatly from one BASIC to another that we won't 
RUN even attempt to summarize them here. Effective use 
XXX of graphics producing statements and functions 
XXX requires the same general techniques for manipulating 
XXX strings and values with assignment statements, 
XXX branching statements, and loops that you have been 
XxX learning. So in that respect you are ahead of the game. 


some BASICs (Radio Shack and Atari, for example) have a built-in set of graphics 
figures, each with its own ASCII code number, just as if they were alphanumeric 
characters. You can check using this program. 


10 FOR G= 1 TO 256 : ? CHRS(G):: NEXTG 


In general, you can turn on and off little dots (actually tiny rectangles) that are 

arranged in a grid (row and column) pattern, specitying their position for display 

by the crosspoints of row and column numbers. On systems with color graphics, you 

also get to choose from a set of colors, and often color intensity, too. Some allow 

you to predefine shapes, and to store them for later use, when you can also specify 

the size, position and orientation (tilt or rotation) of that predefined pattern. And 

then there is the sound-generating capability for producing music on some systems. | 

Composers take note. 
| 








NEW Parts of a long Program. 


2 REM ~-— yes OR NO TESTER FOR NUMBER GUESSING GAME 
29 INPUT “po YOU NEED INSTRUCTIONS? * RS 
30 IF RIGHTs (RE,1) cp ayn AND RIGHTS (RELL) < spye THEN PRINT ; 





PRINT CHR (7): “TYPE ?¥? For YES OR *N> FOR NO" : PRINT =: GOTO 20 


40 IF RIGHTS (RE,i) = ope THEN 310 
30 GOTO Pig 
60 REM —~ FROGRAM CONTINUES 


FRLIN 
DO YOU NEED 7 NSTRUCT IONS? MAVRE @il!! The fence straddler gets the error message, because 
the first character in RS is M, instead of YorN. 


TYPE "¥" FOR yes OR 7 N° FOR NO 


DO YOU NEED INSTRUCTIONS? 


Examine that complicated-looking line 30. It starts with an IF... THEN 
statement that has two cOMparisons joined by the logical AND (see page 75); 
followed by four more statements in the same multiple statement line. This is 

the Microsoft-style version, where the multiple statements following IF... THEN 
are Only executed if the cOoMparison part evaluates as true (in this Case, if R$ 


Guessing Game. However, in this version on/y an entry of Y or N js acceptable, 
not YES, or NO, ora null string (no entry), or anything else. Check line 510 


420 IF & = & THEN PRINT “YOU GOT ITi'''s sora OO 

S00 INPUT "DO YOU WANT TO PLAY AGAIN (Y OR NO?"sRe . 

S10 IF RS oo» Hye AND RB © > "N" THEN PRINT : PRINT CHRS (7) 
“TYPE 7 Y¥* FoR YES OR *W? FOR NO": PRINT = GOTO Soo 

S20 IF R$ = "'¥" THEN 20 

530 PRINT "LET?sS PLAY AGAIN SOMETIME. BYE~BYE" 


RUN 
YOU GOT pins 
PO YoU want TO PLAY AGAIN cy OR N)PYES 
WWPE "> FOR YES OR -N> FOR NO nN 24 723 «OF p=, _—— 
HV RA A 43 ra 4 ¢@ 
20 YOU WANT TO PLay AGAIN (Y OR N)? fa/o «¢ Seas Eo. veo 

We pressed RETURN without an entry, 7 al] q i f bb i Dw 
MYPE "> FOR YES OR *N: FOR NO 6 OO 4fE BR 4 | 

i ' See YY a vec 

DO YOU want TO PLAY AGAIN CY OR ND PN | a 


~*=7’S Play acarn SOMETIME. BYE-BYE rOVIsiter 


















































- 
¥ 


d 


c — be 


VII OPvery 








Now modify (rewrite and reenter) Line 10 so that the Program gives practice 


with the addition of numbers between O and 99. 


Change Line 20 So that four dashes Or underlines are Printed under the 
numbers in the addition Problem. 


A) ji bon NEW 


1g A= INTCRND(1)*199) $ B= INTCRND(1)*19g) 

26 PRINT « "3 As PRINT “#3 Bp > PRINT "2.0.0 * INPUT C 
38 IF C@A+B THEN PRINT “RIGHT ONI" : PRINT * GOTO 1¢ 
40 PRINT "YOU GOOFED,s, TRy AGAIN." ; PRINT 3: GOTO 2g 





RUN 
62 
+ 66 


? 128 
RIGHT ON] 


13 
+ 84 
? 97 
RIGHT ON! 


77 
+ 82 
? 159 
RIGHT On! 


I¢ 
+ 8 








There are as many ways of solving a Programming problem as there are of 
skinning cats. (My apologies to cat lovers.) We could use the TAB function 
to correctly place the numbers in the Problems in standard form, with the 
1's in the 1’s place and the 10’s in the 10’s place, and so on for problems 
with more than two digits. 
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FIOETNOUS VOMIT: 
DBPIIZ 199 OWN 


Function). This is the form in which you DEFine your FuNction for the 
j-_.. computer. 


f aed F a 
MAb gen gt Wie 
a sae deer ce z rm, 
Ry : ¥ ¢ ; me a 
Preor : a AS irl 
ale in _ 
ray. pe . “ 
il aN DEFine FuNction 
i F » 
‘4 f 
iF te ZO 
") ieee 
a ee 
ah ; om 3 
A é is 
wh Eh : be 
|| 





— 


DEF “h )= expression in which V is the “dummy variable” 


dummy variable for the function argument 


variable to distinguish this defined function 
from any others in the same program 


Once you define a function in a program statement, you may use the function 
Just as you would any other function that is part of BASIC. However, there are 
several tricky thinas about about defined functions. 
(1) You must define your function in the program using a DEF statement before 
you use the function itself in other statements later in the program. 
(2) DEF is only used in the statement where you DEFine the function, similar to 
the way DIM is used. 
(3) The “dummy variable” in the DEFinition is just a place holder: it shows the 
computer where in the function the real program variable should substitute for the 
dummy variable. 
(4) Don’t be confused: the variable that identifies the function itself goes right 
after FN_ where we have the blank. The dummy variable for the function 
argument (we use V in the DEF FN_(V) statement), is where the real program 
variable gets ‘‘plugged in” or substituted when the function is used in the program. 
(5) DEF FN_ may be used for string variables and string manipulation—but not 
in all versions of BASIC. 


To demonstrate, let’s go back to the program we used to line up decimal points. 
We want a defined function that will provide a value for the TAB argument. We 


SS i) \\ a — || 
GG W\ use P (for Point) as the function ID variable (FNP). 
v N\ Every time the computer finds FNP, it 


does this operation, using the real 


iN Ny [A program variable’s value in place of the 
WS \\ /DO IT dummy “‘place-holder” variable V. The 
= > aa 


result is a value for the TAB argument 
in our example program. 
1d A=1.-346 3 B=225-1 3 C= 11.73 
28 DEF FNPC(V)=6-LEN(STRS( INTCV))) 20 DEF UE RS TENS TRS(INT Iv) 
38 ? TABCFNP(A))3 A ral 
49 ? TABCFNP(B)); B 
58 ? TABCFNP(C))3 ¢ 


dummy variable 
function ID (identifying) variable 






RUN f 
16346 A iy 30 ? TAB(FNP(A)): A 
225-1 ™ Sure saved a lot 
11673 of typing function 1D variable [he ra! variable, where the 
computer does to A whatever 
FNP was set equal to for the 
If you understand the concept dummy argument V in the DEF 
of “defining your own,” statement. 


write a program with a DEF FN 
of use to you for your own interests. 
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a Curve, 







. 
z 


7. Multiplying by 10 gives us an 
‘et expanded scale of 0 to 20 on 
2) the Y-axis, that is, 10 character 
may SPaces “above” and “below” 
\E the real X-axis. That also means 
“there are 20 character print 
z Positions where a Point may be 


‘ 
NS plotted or printed 


af 
i 






fa 
eel 
Re 










1 
ii 


Ii | 
yan hk 


FOR P=0 TO 2*3. 





By changing this value, we can 
specify how many cycles wil| 

be plotted. 2*P} js One complete 
cycle, so 4*P! would be 2 cycles, 





DO IT 


5 REM-PLOTTING A SINE WAVE 

10 FOR P=g To 2*3-14159 STEp 3 
28 PRINT TABC2O*C1+SINCP)) ys x0 
38 NEXT p 


RUN 


First Version 


Modify the program to see 
(1) the effect of changing the 
number of points plotted: 
(2) the effect of changing the 
“scale expansion factor,”’ and 
(3) the effect of changing the 
number of cycles graphed. 





by the computer. 


TAB(10*(1 + SIN(P))) 





Adding one to the value of the sine gives 
values between 0 and +2, instead of between 
—1 and +1. The reason for doing this is to 
avoid negative arguments in the TAB function, 
since the computer can't TAB toa negative 
character position. For us non-math types 

it’s sort of like adding a +1 to geta RND 
number between 1 and 10 instead of 0 and 

9 in the RND integer routine we used before. 


14159 STEP .3 


We can specify how many points 

we wish plotted along the curve 

by varying the STEP value. The 
larger the STEP value, the fewer | 
the points that are plotted. 


@ FOR P2zg To 4*3-14159 STEP 


RUN What did we change 
Xx to get this output? 


5 ] 
Xx 


Xx 


x | 
Second Version x | 
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information in lists and arrays. (Not that you havea complete 
knowledge of BASIC, mind you, but the other nice little things BASIC can 
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And Then There’ 


ABLE SUB8eRIPTS 








variable A(K} Subscript, whose numerical value 
ee on the value of K. If 
K = 4 then the box that corresponds 
to A(K) is A(4). 


hat point severa| times. In the example above, the 
ript is 4, and the value of the subscripted variable A(4) is 18. 





3 REM-FIRST SUBSCRIPTED VARIABLE DEMO 
!1@ READ YCO)s YC1), Y¥C2)5 YC3) 

26 ? "¥Cg) ="3 YB) 

38 7? "y¥¢1) =i" 5 

46 7? "¥(2) =; ¥€2) 
598? "Y¢3) ='"3 

68 DATA 3. 8, 2s 665 
RUN 
YC@) = 
YC) 
Y€2) 
¥C3) = 


i] 
MO Mw 



































Now Let Me Make This Perfectly 
Fh) BAR 


Note that the value of A is the value of the FO R-NEXT loop contro! variable, 
which increases by 1 (one) each time through the loop. Therefore, the first 
time through the loop, A = Q and Y(A) is Y(0). The READ statement then 
assigns the first value from the DATA statement, 3, to the box labelled Y(Q). 


Don’t confuse the value of the FOR-NEXT loop control variable A with the 
value of the subscripted variable Y(A), which is assigned from the DATA 
statement. We're just using the value of contro} variable A to have the computer 
assign values to an array or list of subscripted variables, one after the other. 

The value of A determines which subscripted variable Y(0) to Y(10) is 

assigned the next value from the DATA statement. FOR-NEXT loops make 

it easy to assign a lot of values to a lot Of variables, and subscripted variables 
make it easy to keep track of 4 lot of values, 


A One Liner 


Want to try that last little program in multiple statements per line? 


Do it like this: 

1@ FOR Az=g TO 10 3 READ YCA) 3: - "YC"? A; ") ="3 YCA) : NEXT &A 
26 After replacing line 10, Were you brave enough 

30 just type the line numbers to try this statement 

LIST out, and hit RETURN each time. 


S REM-3RD SUBSCRIPTED VARIABLE DEMO 
1@ FOR A=@ TO 19: READ YCA) : PRINT "YO"'S AZ ") m3 YCA) : NEXT 4 
S@ DATA 3, 8% 2, GeSe 2115 81s J, “32s 75 «3333, 5 


RUN 
YO @) = 3 
YO 1) = 8g 
Y€ 2) = 2 
YO 3 > = 665 
YO 4) = 2)] 
YC 5) = 8] — rk mieeeece ze . 
= Vy y | (ue fu _ : ' , } 
ror > ange LSU )E5 Same Old Results. 
YC 8) = 7 
¥C 9 > = ©3333 
YO 18) = 5 


(Did you get the same output?) 
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If you need further convincing, use direct mode to see which string is stored 
In which subscripted string variable. 


? Y$C2)s YSC4), Y$(B)s Y$C3) 


PEACH PLUM APPLE CHERRY 





Be clear about this: different variables can be used to determine which 
subscripted variables is being referred to. It’s the va/ue of the variable used 

to indicate the subscript that is important. Do another direct mode statement 
© to illustrate this point. (You haven't typed NEW have you? Well, don’t!) 


3) A=3 : B=3 : C=3; ? Y$CA)s YS$(B)s Y$C(C) 
», DC ~ CHERRY CHERRY CHERRY 


No matter what variable is used 

to tell the computer the value of 
the subscript, if the subscripted 
variable is Y$(3), then the computer 


will print the string assigned to 
Y$(3). 











This just gets more and more interesting, 
Possibilities. In order to determine the y 


3? YSCY/X), Y$(Z-X), YSCC¥*Z)/€X*Z)) 
PLUM PLUM PLUM 


Hmmmn, it would seem that every 
one of those calculations in the 
subscript parentheses resulted in 
the same subscript value. Do you 
agree? Don’t you wish this was a 
slot machine? 






























Now, a longer list of data in a longer Y$ array or list. Change Lines 10 and 
20, and add another DATA statement, like this: 





ih || 
| b FOR Aw@ TO if t READ yScay : 2 At Yscap . 
\y |} 2a 
j 


68 DATA BANANA, ORANGE, FIG. APRICOT, TURKEY 
LIST 





2 REM-SUBSCRIPTED STRING VARIABLE DEMO 
1@ FOR A=@ TO 11 ; READ YSCA) : PRINT As YS$CA) ; 
S98 DATA APPLE, PEAR» PEACH, CHERRY, PLUM, MELON, 
68 DATA BANANA, ORANGE, FIG, APRICOT, TURKEY 






















RUN Aes Fie a ; . wt 

@ APPLE ae 

2 PEACH staal Le All a 
4 PLUM ; Ry Jee eS 
S MELON \ BGO 1 4 p 
6 GRAPE ‘ : q 

7 BANANA : PB 

8 ORANGE | 

9 FIG 


18 APRICOT ee 
Your error message may be differ- 

ent. BS means Bad Subscript, and 
that’s no bs. But it is an error 
message we haven't seen before. 

For sure it isn’t the same as the out 
of data error message, because there 
was still another item of DATA left 
unread when the bad subscript error 
stopped the RUN. Which is a 
Sneaky way of introducing the next topic... 


?BS ERROR IN 1g 


a 


H . 
¥ —-_ “ —_ 7 
a Pie ls ee C oly YS deat ay ‘Tits 
J & ” ail 1 F< mokate ie oe ut in 
7 hi > = a ny " ot ate ot 4 a 
Me 2 SA al ve ee | fear st a" % YW 7 
rh Tal j 1 eat r jee 1 hid 
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It works just the same for values as for string 


Now add a DIM Statement and try the pro- 


arrays. gram again. 


NEW 


16 FOR B=@ To 15 
28 FC(B)=B 

3@ PRINT "Fc; Bs ") ="3 FB) 
48 NEXT B 






wWMwMWwvVY ew eweununy 


a ee 


VPMAIAULWHD HK | 


?BS ERROR IN 2g DP 


20 F ¢ 
LIST F¢ 


S DIM F(15) FC 
10 FOR Beg To 15 F¢ 
38 PRINT “RF Hs Bs") ="3 FCB) FC 
40 NEXT B FC 


“ry 
o~ 
— PQAIAUEWHYe | 
if Ww 
ONSEN RIS Be RS gs 
www ow 
FPR ®eaqgagaeoe 
QQ OQ © ea 


re ee 
Hunn a 





VwwwY ever ds 
www ow uw 


ee eee AAAAAAANAAAAOAMAMAACAAaCA 
BY Ceeeecvececeecececcceeccceee cere ee aaa 
a 


BASIC assumes that any variable, 


including an 


has a value of Zero until it is told 


otherwise. 


S DIM F¢}5) 
N 


c 0 eet THGBBEBEPECEESEEEEeEoEEEOoEEEEEREE E] 


2) 


er 


aI el) 


ou ten ona ay 
H@uuw y 
ORABRUE WH moe 


J GGG00CGGe200b8GDEEEEEEp5 


f 
cE) 
e) 
CsI | 
e] 
cc) 
G 
e) 


3 ILS) ILS) Ie 


y subscripted variable, 


992992232322 9999282900 99290233202 


P “Crweeneeecccccceccceceeecceoocceeeercee, 
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Maing on Gray te Teop Opunt 


In Our simulation Program we will use the array T to keep track of how many 
Vs, 2's, 3's, 4's, 5’s and 6's Come up On our simulated die. 


To begin with, all the values of the subscripted variable are O. 


We don’t use T(0Q) Cr—> 


since there is no 
zero on the die. 





D will be assigned a 
value from the RND 
statement each time 


/@~e6 
it is executed. / a . 
€ i 
© © | 
(e 4\\ 
\@ ey 


Let’s say that the statement (shown on the Previous page) that generates the 
RND integer gives us a 3, So that D = 3. 

Each time D = 3 from the RND line, we want the value of T(3) to increase 

by one to show one roll of the number 3. We can use a “counting” statement 
with the T array subscripted variable, like this: 


T(D) = T(D) + 1 This is the “counting” statement. 
fe<denteotins: 


—— First T(3) = 0, 


New value of A Old value of Current value 
T(3). T(3) plus 1. | T{3) pO FT of T(3). 
Then T(3) = 4 


After T(D) = T(D)+1 
T(3) Pt Is executed for D = 3. 


But if D comes up a two (D = 2) then T(2) = T(2) + 1, that is, the value stored 
at T(2) is increased by 1. 


Since there are 6 faces on the die with from 1 to 6 spots, we can use an array 
Or list of 6 to keep track of what face comes Up with each simulated throw 


of the die. —_ 
fe 
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This way of using subscri 
to many kinds of 







Say you want the computer to tabulate or count 
the responses to this questionaire. It could also 
be a voting ballot or the answers on a multiple 







choice test. 


Which candidate will you 
vote for? (Circle the num- 
ber for your choice.) 


1. Need Some 
2. Want More 





Here are the votes (or whatever) in DATA statements. 


DATA Is Its ty 2, Il, 2 1s 2, 2, 1, 2s 25 25 2, I, 2, ls 2 
DATA ls Ce ee 2s Cs I» ee ls I» ls 2s 2s ls ls Ce lo oe ee 


Let’s have the computer READ them one at a time and have them tallied 


with our T array (kinda small array ... only two boxes, for a Vote of lor 
a Vote for 2). 


1@ READ V 





3B TCV =T OV) 4] 


The values are V | Value of V will 
zero to start with. change for each - 


vote that is read from the DATA statement. 





The new value of T(V) = old value of T{V) plus 1 for the vote being tallied. 
If READ V comes up with V = 1 from the DATA statement, then 


T(V) = T(V) + 4 
or T(1)=T 


(1) +1 
The value in box T(1) | a M2) Ls 


gets kicked up by +1, and to belabor the point, which one gets kicked depends 
on the value of the subscript V — whether V js 1 or 2 on that trip through the 
loop. (Pause here for inhalation therapy.) 


After each vote is tallied, we want the computer to go back and READ another 
vote from the DATA statement. 





4@ GOTO 1g 
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A citar 











by the salesperson. Our DATA statements 


with the first number indicating territory and the 
sales in dollars. 


1@3 DATA 15235G, 4.1756, 222008, 
118 DATA 621244, 22 245G, 324209, 
128 DATA Se2G1G, 221372, 





141345, 5,329¢, 321220, 6,216¢ 
£21275, 4,110, 441880 .3,9ag 
151358, 5,1719, 3s 2596, ~99995-9999 


ne : Note the double “end of DATA” 
as flags, because the computer will 
“ Sa 


; READ two values at a time, and 
a NA we wouldn’t want an Out of Data 


error, now would we? 
aa foe ) 
_ STS Soh ye 


m 





, and D is the Dollar sales for one sales 
use the subscript to sort th i y territory and keep track of 
the dollars in sales for each 


of the six sales territories (see Line 30) 


S REM-SALES REPORT BY TERRITORY 
1@ DIM Tcé6) 

2@ READ S.4D ; IF D=-9999 THEN 4@ 
38 TCS)=TCS)4+D * GOTO 2g 


Notice that T(1) keeps track of the sales In dollar 
a tally of the sales in dollars for territory 2, 


Ss for territory 1, T(2) keeps 
and so on up to T(6) 
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Name Branch Office 
See rns 


Item 1 2 3 4 5 6 7 8 















Sales 






Salesmen are paid a flat $700 per month plus 10% commission On sales over 
$3500 each month, 





As sales Manager, we want our computerized report to show: (1) the total 
sales in dollars for each salesperson and (2) each salesperson’s total Salary 
based on the flat salary plus commission. We also want (3) to show how 
many of each item or Product was sold, and (4) the total dollar income from 


1S] 








i St cle rusia coats dea omarion 





You can fix the report display format 
Produced by this program by modifying 
certain PRINT statement lines to suit your 
screen display or printer line lengths. Be 
sure to check lines 130, and 140. 


1@ DIM PCB)» VOB)» T(8)5 QC8), N$C€12) 
26 FOR X=]! TO 8 : READ PCX) : NEXT x 
38 PRINT "SALESPERSON", “TOTAL SALES", "SALARY" 


4@ S4=@ 


S@ READ NS : IF NS="END" THEN 12g 
6@ FOR X=1 To g : READ Q(X) 


78 UCX)=U6X)+4+Q(Xx) 
50 S4=Sq + QOX)*PCX) 3 
90 PRINT NS, Sa, 
1@Q S=S+S4 : IF S4<=35 


NEXT xX 


©@ THEN PRINT 76@¢ : 31=S1+708 ? GoTo 4@ 


112 337 788+((S4-3599)*".1) > PRINT $3: S1=S1+53 ; GOTO 46 
120 PRINT : PRINT "TOTALS", Ss, S} : PRINT 


138 PRINT "ITEM", “PRI 
140 FOR X=1 TO 8 : PRI 
152 S2=S2+UCX)*PCX) ; 


CE/ITEM", “UNITS SOLD", “TOTAL SALES" 
NT Xs P(X). UCX), UCX)*PCX) 
NEXT X 


162 PRINT ¢ PRINT “GRAND TOTAL OF SALES"'s45 $2 


268 DATA 2.45, 18.45, 


6°75 9-95, 25.89, 16-585 5.58, 12.6g¢ 


21@ DATA DeMILLER, 1225 15, 752 Os» 26,5 100s &@, 144 
228 DATA BeMIDLER, 1685 1, 9@, 554 165 126, 965 132 


238 DATA P.PADRE, 8s 


1@s 605 48, 5, 7356 185 55 


249 DATA AsXAVIER, 144, 6g, 96s 965 365 144, 126s 92 


258 DATA END 


RUN 
SALESPERSON TOTAL SALES SALARY 
DeMILLER 9433-4 893.34 
BeMIDLER 6872.4 957-24 
P. PADRE 3262 780 
AeXAVIER 7998.4 1149.84 
TOTALS 2276642 3788.42 

ITEM PRICE/ITEM UNITS SOLD TOTAL SALES 
1 2e@85 584 1833.2 
2 13245 86 1586.7 
3 6275 321 2166-75 
& 9-95 I91 1980.45 
ss) 25 77 1925 

6 16-5 439 T2435 
7 39°05 292 1606 

8 12-6 421 5304.6 


GRAND TOTAL OF SALES 


227662 
Extra for Experts: modify the program so that 
decimal points are aligned, and so that one or 
two zeros are added in the “‘cents’’ columns 
when needed to complete the ‘‘dollars and 
cents” format. If your version of BASIC has 
the PRINT USING statement, it can help do this job. 





2 
; 
> 
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You have your school transcript in front of you. The college of your 
future choice says they will accept anyone with 75 A and B grades. 
Write a program to count your A’s and B's. Place all your grades in 
DATA statements using this scale: 


A=4 B=3 C=2 D= 1 F(n/c) = 5 
Sample DATA statement: DATA 4,3,4,2,2,1,4,3 


Slot machine simplified: The string array exercise in this chapter with 
cherries and plums, etc. sets Up a natural situation for a slot machine 
simulation (Nevada style). Write a program that simulates a simple 
machine and as your energy and interest allows, add to it to make it 
more sophisticated by fixing the odds, increasing the WIN chances, 
adding more money to the betting, etc. 


simple form: From DATA statements read in to an array: CHERRY, 


BAR, PEACH, PLUM, APPLE. Then choose three of them randomly 
and print the results. 


If column 1 is a cherry, you win $0.05. 

If column 1 and 2 are the same you win $0.10. 

If column 1, 2 and 3 are the same you win $0.25, 

'f columns 1, 2, and 3 are BAR, you win whatever is in the “kitty.” 


i i 
BUT it's FUN. oe Aes / 
EDUCATIONAL | 
KIBS LEARN rRom ir! 















IT's 


Its A GAME! 
SIMULATION! 


t 
—z 
t. 


HURUTRR 











impractical te dain a cl 


that would br impossible or 





ae a 


ompufer an 





BVT ovt's 
Fun! 


BLT IT's EQucarionaL! 
KIDS LEARN FROM iT! 





“Reproducing on ac 





in 


sic Definition of Classroom Computer Simulation: 







Cteqqun 





Clas 
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| ou ied ze This stacked up arrangement allows us to relate subscripts to particular locations 
ia aan am a Or “boxes” for holding values in rows and columns. Wantsome vocabulary? 


i = , The rectangular arrangement of doubly subscripted variables in rows and columns 


is called a tab/e or Matrix, or two-dimensional array. Remember that an array 


ve eae | Fo e327] of singly subscripted variables is a list or one-dimensional array. 

eS ae 

ie ft S&S This is a list or a 

|| <i it | ie one-dimensional 
| array. 

1 2 aa 


One subscript, one dimension. 









This is called a table, or two-dimensional] array, or 







matrix: 








Two subscripts 
Two dimensions 






Just as for singly subscripted variables, those with two subscripts can have 
subscripts Starting at zero. Up to 30 vy 


Arrays created by using variables with double subscripts are handy 
data in the computer. You must tell the computer what the maximum 


perk 
=i 
= 
@ 
“ 
(D 
ab) 
wa 
ot 
a 
a) 
tO 
a 
=i 
—“ 
ab 
= 
— 
— 
4") 
“ 
@ 
= 
e) 
Cc 
os 
io” 
4) 
m 
A 
pa) 
oy 
ct 
4) 
= 
toms of 
= 
4" 
> 
we 
= 
4 
c+ 
— 
x 
> 
A 
QD 
za 





20 DIM C(3,4), X$(15), Y(12), MS(F,S) 


line numboue 3 i 1 = 1 a 2 dim 


array string array string 
array array 


| 


lel dalalade 


The exceptions (what, again?)—if things aren’t working right when you use DIM, 
refer to pages 25, 27, 142, 143, and the reference manual for your BASIC. 


SERERE EERE EEE REEK ERE HH, 























AMAIA 


manera yeni aniaen 


iit 


MA 








Now fill in the values assj 


We did the first two. 





gned to these subscripted variables by the last program. 





Now let’s start automatin 


use FOR-NEXT loops to 


puter which subscripted variable it is to deal 
Scripts, so we use nested FOR-NEXT loops t 


56 FOR R=@ TO 2 
6@ FOR C=@ TO 3 


790 ? a Oe Gas Re ae ae C2 eae ='*$ 


S@ NEXT C : ? : NEXT R 
LIST 


2 REM-DOUBLE SUBSCRIPT DEMO 
1@ DIM C¢(2,3) 


20 READ CCOo 8)» CCG51), CCP 


38 READ C(1s@), CClslds COlL2), 
4@ READ €(25@), CC2s,1)5 Cl2,2), 


5@ FOR R=@ TO 2 
62 FOR C=@ TO 3 
78 PRINT "CC'S RZ "Zs G3 


88 NEXT C : PRINT : NEXT R 


"23"3 CCRACI3 " "3 
10@@ DATA 5. 185 88s -19, LOS, 


g. As we did with one-dimensional arrays before, we 
give values to the subscripts, and thus tell the com- 
with. But now we have 2 sub- 

O go through the possible values. 


| nn Replace Lines 50, 60, and 70 in the last program, and add Line 80. 
, au 


CORsC)s ae 


22)e C(@s3) 
C153) 
C253) 





Be255 Gls 225 -1255 155 95 


SY 
| 88 NEXT C : 2? : NEXT R 
all 


Used to “‘cancel’”’ 
the ; at the end 
of Line 70 and 
start a new line 
of output. 


id you have trouble entering Line 70 correctly? Let’s look at it more closely. 


70 ? hl Oh Ba R> *# 6a es e 


ot « 





4A f 2 > "ats CCR.C)3 a 2 : 
The first part of PRINT the The subscript i eave spaces ’ 
the subscripted comma used parentheses between the 
; : ; : Stay on the 
variable notation. to separate closed. subscripted : 
: . same line. 
subscripts, variables and 
values. 
Value of Value of PRINT the 
first subscript. second value assigned _ - 
subscript. to this subscript in some of the spiffier BASICs 


Lots of extra semicolons here that could 
be omitted in some versions of BASIC 


variable. you don’t have to put in all 


those semicolons 
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Let’s go back to our vote counting program. Using variables with double 
= subscripts allows us to add another dimension to tally or count up for us. 
Our new questionaire asks ‘’Who did you vote for in the last election?” 








\ Question 1: Who did you Question 2: Circle the \ 
\ vote for in the last election? number by your age 

\ Circle the number by your group. \ 
‘\ choice. \ 
\ 1. 18~29 \ 
\ 1. = Powerman 2. 30—39 \ 
\ 2. | Moneyman 3. 40-49 \ 
N 3. Other 4. 50 or over \ 





We want to write a Program to summarize the data gathered from this poll. 


4 possible answers for the second. Any one questionaire yeilds two answers 
the answer to Question 1 (which can be a 1, 2 or 3), and the answer to 

. Question 2 (which can bea1,2,3, or 4.) Obviously we want to know the 
answers as related to age groups, as well as the totals of votes in each catagory 
from Question 1 for all age groups, just like the big time pollsters. (Gallup 
Poll has nothing on us!) 


Remember how we used the subscript of a variable to decide which catagory 
to tally a vote in? 





1@ READ V 
30 TCVD=TCV) +1 





Now we have two answers to tally, so we use a two dimensional array. 


18 ~— 29 30 — 39 40 — 49 50 or over 


Powerman Gl) Cl1.2) || P C(1,3) Lf C(1,4) , | 
Mioneyman C(2,1) = C(2_ 2) - C(2,3) im Gl? 4) —_ 
: Levy a Hi Cis ; 
Lae | Turivich tg = | 
10) Chrczanoier {rl Other C(3,1) — C(3,2) - C(3,3) | | C(3,4) td 
eed idatd | 


Gonzales {1.41 

















The 
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a 
Hy 


iberty Loan 


onetime nonfarm t menerinennoeacf 
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i 
DA 
a 


LIST 





So far, this much of the Program 


(plus the DATA Statements) 
the responses to the questionaire. 


will count all 


S REM-VOTE COUNTING WITH TWO-DIME 
1@ DIM C(3,4) 


26 READ VsAa ;: IF A=-9999 THEN 4@ 
36 CCVSA)=CCULA) 4] : GOTO 2g 
982 


NSIONAL ARRAY 


DATA ls2ys lse3s Cele 203s Cals 3225 Se 4s 2s 35 233 322s 
918 DATA Sel, 302, 1,4, 


2sAs 223» ls 3, 2a4s ls 4, 2,2 
9223 DATA sels 2225 322, Cs ts ls25 Is3s 2,4, les 45 2,3, Sales 323 
930d DATA -9999, -~9999 


1,4 





The next section of the 


Program must tel| 
counted. We want the ¢ 


the computer to tell us what it has 
ollowing informat; 


On when the Program is RUN. 














RUN 
CANDIDATE 18-29 38-39 42-49 SS + 
POWERMAN @ 2 3 4 
MONEYMAN 2 3 5 4 
OTHER 2 4 1 I 
~ 


First a statement to print the headings and a 
and TABs for the commas, if you are workin 


40 ? “CANDIDATE”, "18-29", 


blank line. Substitute semicolons 
J with a 40 column display or printer, 


"38-39", "48-49", "Sa gn : ? 


And now the information st 


Use nested FOR-NEXT loop 
the candidates’ names? 


ored in the C array. If yOu guessed that we will 


as you look. But what about 


Let’s put those in a DATA statement, and assign them 
to a string variable, C$. ) 


[f we place the READ C$: PRINT C$ instructions 
inside the first loop, but y will be printed at the 
beginning of each line in 


98 FOR V=1 To 3 READ CS : ? C¢g, 


6@ FOR A=] TO 4 2? CCUsaA), : NEXT AsV 
948 DATA POWERMAN, MONEYMAN, OTHER 


You can automate the TAB for Printing the c array 
values under the Proper hea format) with this technique: 
30 FOR y = 17TO08: > Y CH: +: LET Mm = 
60 FOR 4 = j TO 4: #3 TAB (M) : C(V,As =: LET 
NEXT 4 ; 


settings inside the loops ( 
dings within a 40 column 


i a 
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There is one more peice of information that we might want to have reported: 
the total number of people answering the questionaire. Let’s just add on one 
more little program segment. Again we take advantage of the fact that we 
haven't used all the locations of the C(V,A) array with zero as subscript. To 
tally the C(V,0) values and store the total number of respondents to our poll, 
in C(0,0), we use anosther FOR-NEXT loop. 


IERIE 


ry 
a 


PELE 


3 
i. 
Cs 





Bs oe 

a: 

110 ? “TOTAL POLLED:"3 mae 

128 FOR V=i To 3 3 C(Os8)=C(O,0)+CCVL0) : NEXT VU: 2? CC8,8) se 

RUN | Ere 

CANDIDATE 18-29 30-39 4@-49 38 + ES 

POWERMAN g 2 3 4 = 

MONEYMAN 2 3 5 4 eae 

OTHER 2 4 ! ! FEES 

TOTALS: You can fix the report display FES: 
ANSWER 1: 9 format produced by this . | 

program by modifying certain “= tae 

ANSWER 2: 14 PRINT statement lines to suit oh 

ANSWER 3 : your screen display or printer he 

TOTAL POLLED: 31 line lengths. pres 

reas 

READ 2 

ress 

Of course there are other kinds of information that we might get from this per 

data and our program, with further additions. You might write a routine FEES 

(program segment) to tally how many people in each age group was polled. or 

If you know Statistics, you might try writing some routines to provide a = 

Statistical analysis of the program, or percentages in the various catagories. — 

Use your imagination plus the knowledge of BASIC that you have worked aa 

on hard to learn. PEES 

| SRS RSE SRS SR_SR_ SRR ge sp zn ce 


a 





Other Dimensions 


You don’t have to stop with 2 dimensional arrays. In fact, many Microsoft BASICs 
allow up to 255 dimensions. 


However, because of the limitations on the size of a statement line, you can’t 
always get that many dimensions into a statement. 
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D(4,13).. the subscripted variable to keep track of wh 
dealt by checking and “marking” 


ich cards have been 


in an array, so that the computer 
will not deal the same Card twice. There are 13 cards in 4 suits — 


note the subscripts in the array D(4,13). The value of the subscripts 


are determined by two RND numbers, and that is how the computer 
will know which card is being dealt, 


eesweeac the suit of the card to be dealt (See Line 1 10). 
Siaeumeeue the number (1 to 13) of the card to be dealt. See line 100. 


99 REM-CARD DEALING SUBROUTINE, LINES 180-33¢ 
1Qg K=INTCI3*RNDC(1)) 4] 

11g JE INTC4*RND(1)) 41 

120 IF DCJsK)=-1 THEN 16@ 

136 D(JsK)=-] 


In Line 130, the values of J and K determine which D(JK) 
marked or set to —1. 


indicate that a particu 
box is marked —], the 
dealt, that is, if the box for D(J,K) was already marked with a —1. Line 120 


sends the computer back to try again with another set of RN 
there was already a —1 marked in the box, 


In this program, each card has a number for its f 
random from 1 to 13 by Line 100. 


box will be 
We could have used any value other than zero to 


ace value, “‘selected”’ at 


16g K=INTC1I3*RNDC1))+4] 


Number: 1 2 3 4 §& & / 8 9 140 
Card: Ace 2 3 4 5 6 7 8 9 


Each card has a number (1 to 4) 


11 12 13 
10 JACK QUEEN KING 


for its suit, selected at random by Line 110. 
11g JE INTC4*RND(C1)) +] 


Number: 1 2 3 4 C a4 (2 ‘\ (3) ( qa) 
Suit: . clubs spades hearts — diamonds Tt ra, 


Line 120 checks to make sure that card D(J,K) hasn't been dealt, and if it 
hasn't, Line 130 notes with a —1 that it is about to deal card D(J,K) 
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Lines 140 and 150 Introduce the ON ... GOTO statement. 








ON GOTO ; _ eae 
. A variabl pression All these must be line numbers 
a to calculate. 


that are in the Program, and 
they must be separated by commas. 


(ar 


As many line numbers as can fit ina 


statement line, can follow an ON wot 
statement. If the ON ...GOTO Varia 


| ble is 1, then the computer GOes TO 
the first line number. If the variable value is 2, then it goes to the second line 


number listed, and so on. However, if the value of the ON .. GOTO variable 
is negative, or is zero, OR is bigger than the number of line numbers after 
GOTO, then the computer just skips on (“falls through the statement,” they 
: | say) to the next line numbered statement in the program in some BASICs. 


This is handy, because you may wish to use more line numbers then will fit 


in one line. The trick is this: Say that only the first 10 line numbers in 
Line 140 actually fit on the line — 


148 ON K GOTO 200 42104218,210,219,210,210,210,219,21¢ 


We leftoff the last 3 lines numbers 


, Pretending they wouldn’t fit. We tell our 
next ON ... GOTO variable to pick 


up where the last one left off, like this: 






145 ON K-18 GOTO 229,230,249 ely, 
ee Lp 

YS A \VNE 

Subtract the largest possible S | ie E 

value of K for the last line, os \vA.s ry A 

K would have to be greater a OY FA 

than 10 in order to “fall a 


LL 
through” the last statement . gps Ky ml 
and arrive at this line. | 


Like GOSUB and RETURN, ON ... GOTO must be the | 
ina multiple statement line, or else it must stand alone. 
In Line 140 we find 


ast statement if used 


140 ON K 8OTO 200421642104 2104 218s 2105218210210 210s 220+ 230504 


This line selects which statement will be used to PRINT the card selected. 

If K = 1, then the computer goes to Line 200 and prints ACE. IfK = 2. 

© 3,4,5,6, 7,8, 9, or 10, then the computer is sent to Line 210 and prints 
the value of K ( the number of the card being dealt ). If K= 11,12, 0F 13, 

the computer goes to Lines 220, 230 or 240 and prints JACK, QUEEN, or 

KING 















\_ KING, 

Ki Notice that ON . 
\7/ ~-sstatements. 

v=? A The ON ... GOTO statement in Line 150 selects the name of the suit to be 


* _«.. printed. We sure got double duty out of those RND value for J and K, 
i didn’t we? 


-- GOTO can sometimes substitute for bunches of IF... THEN 
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LIST 


S REM-POKER DEALER 

1@ DIM D(4513) 

2@ FOR H=1 TO 5 ; GOSUB 18¢ 
38 NEXT H 

4Q@ PRINT : INPUT “ANOTHER HAND, SAME DECK"$ as ;: IF AS="YES* THEN 2g 
9@ PRINT : INPUT "ANOTHER HAND, NEW DECK; ag : IF aAs="NO" THEN END 
6@ FOR J=1 TO 4; FOR K=1!1 TO 13 3 DCJ» KI=@ 3: NEXT KeJ : GOTO 2¢ 

99 REM-CARD DEALING SUBROUTINE, LINES 180-339 

1282 K= INTC13*RNDCO1))+41 

11d JE INTC4*RND(1)) 4] 

120 IF DtJsK)=-} THEN 182 

130 DtJsK)=-] 

148 ON K GOTO o202210+21842105 2104210, 210,210,210.2105220,230,040 
15@ ON J GOTO 39@5310.328, 33g 
202 PRINT " ACE ‘3 : GOTO 15¢g 
216 PRINT Ks : GOTO 15¢ 

226 PRINT * JacK “3 : GOTO 15g 
238 PRINT " QUEEN "3 3: GOTO 15g 
240 PRINT * KING "3 3 GOTO 15¢ 
308 PRINT “or CLUBS" ¢: RETURN 
316 PRINT "oF SPADES" : RETURN 
328 PRINT “oF HEARTS" : RETURN 
338 PRINT "oF DIAMONDS" ¢ RETURN 





RUN EXTRA FOR EXPERTS: Expand the program so that the computer keeps 
QUEEN OF HEARTS count of the number of cards dealt, and automatically “shuffles the deck”’ 
8 OF HEARTS (sets the array to all zeros) after 2 cards are dealt and before the computer 
KING OF DIAMONDS _ tries to deal the 53rd card. In this program, the computer will loop from 
18 OF HEARTS 120 to 100 forever looking for a place without a —1 In the array, after 
6 OF SPADES nea 92 cards. How about a Program to deal blackjack, or score poker 

ands: 


ANOTHER HANDs SAME DECK? TES 

3 OF HEARTS 

4 OF CLUBS 

JACK OF SPADES — 

9 OF HEARTS | = 

2 OF DIAMONDS be ing 


ANOTHER HAND, SAME DECK? NO 4 
The ON...GOTO... card 


ANOTHER HANDs NEW DECK? YES printing routines could be 
JACK OF DI AMONDS | | graphics-producing routines 
| | d, to generate playing 
8 OF SPADES Bay eae. 


ra card faces for screen display. Ss 


JACK OF CLUBS 
7 OF CLUBS 
QUEEN OF DIAMONDS 


ANOTHER HANDs SAME DECK? YES 
QUEEN OF HEARTS 

6 OF SPADES 

3 OF CLUBS | 

4 OF SPADES eS 
7 OF DIAMONDS i : 





ANOTHER HANDs SAME DECK? NO 


ANOTHER HANDs NEW DECK? NO 171 

















FUNCTIONS 
RND(X) — generates a random number between 0 and 1 


For RND in Microsoft-style BASICs, see pages 110-119. 


Following functions apply to most versions of BASIC. 

LEN(B$) — gives an integer equal to the number of characters in the 
string variable. 

DEF FNA(A) — define your own function. 

ABS(X) — gives absolute value of expression X. 

INTCX) — gives largest integer less than or equal to argument.X. 


TAB(X) — spaces to the specified print column. 

USR(X) — calls machine language subroutine X. 

FRE(Q) — gives the number of bytes unused in memory. 

SPC(X) — prints X number of blank spaces. 

SGN(X) — gives | if X is greater than 0, zero if X is zero, and —1 if X 
is less than zero. 

SIN(X) — gives sine of expression X if X is in radians. 

SQOR(X) — gives square root of X. 

TAB(X) — spaces to the specified print column on terminal. 
ATN(X) — gives arctangent of X in radians. 

COS(X) — gives cosine of X in radians. 

LOG(X) — gives natural (base e) log of X. 

POS(X) — gives current position of terminal printhead or cursor. 


DEF FN 
Allows user to define functions. 
line no. DEF FN (variable name)(dummy variable) = function 


Some versions of BASIC have: 


FIX(X) — returns the truncated value of X. 
LOG10(X) — gives common log of X. 
PI — constant value of pi, 3.1415927 (7) 


RND — generates a random number between 0 and 1. Same sequence 
each RUN. Use RANDOMIZE statement (10 RANDOMIZE) or RANDOM 


(10 RANDOM) to change sequence. 


STRING FUNCTIONS 


INSTR(N1,A$,B$) searches string A$ for substring B$ beginning at 
character N1 in string A$. Gives zero if substring not found. Gives 
Character position if substring is found. 


SPACE$(N) — inserts N spaces within a string. 


For Microsoft BASIC string functions, see pages 87-91. 





Dear Reader, 





The batwoon 








Well, vou have arrived at the end of this book, but vou haven’t arrived at the 
end of BASIC. Your computer system undoubtedly has a version Of BASIC 
with more capabilities than we have covered here. However, if you under- 
stand and can use the BASIC instructions and functions we have presented, 
vou are well on your way. If you have done the end of chapter problems 
(vou didn’t skip them, did you?), then you are really on your way to being 
able to write programs to meet your own needs. 


The author would appreciate your comments, suggestions, and criticisms. 
Did you find mistakes? What confused vou? Are there better wavs to explain 
things? Did your version of BASIC throw you any curves that we didn’t 
forewarn you of? The author and publishers will continue to revise and 
improve this book, so your comments really will be read, and the author 
really does answer letters when they reach him in a timely fashion. When 
writing, please give a complete description of your computer system and 

the version of BASIC it uses. 


So where to from here? Start with a thorough review of all your computer 
system's reference materials. [f you have a disk drive or cassette that can 
store data files, then your choice for an intermediate level self-instructional 
guide could be Data File Programming in BASIC (Microsoft BASIC-80, 
Models Tand IT Radio Shack BASIC, and with North Star BASIC 
annotations), or Apple BASIC: Data File Programming, or TRS-80 Data File 
Programming, all by LeRoy Finkel and Jerald R. Brown. 


Thanks! Have fun and keep on hackin’. 


Jerald R. Brown 

dilithium Press 

11000 S.W. 11th Street, Suite E 
Beaverton, Oregon 97005 

foll free phone: 1-800-547-1842 


Rainbow’s End Farm 
Sebastopol, California 
November, 198] 





The author holds a B.S. degree in psychology, and an 
M.Ed. in Research in Instruction from Harvard. He is 
a co-founder of People’s Computer Company. In addi- 
tion to being the co-author of a dozen instructional 
books in computer programming, he is also a film- 
maker, a gardener, and has done a variety of educa- 
tional television productions. 





E+ (see Floating point notation) 

Earned Run Averager Program 76 

Editor (see Program line editor) 

ELSE 74, 93 (see also IF. . . THEN) 

Empty string (see Null String) 

Empty PRINT statement (see Blank PRINT 
statement) 

END (statement) 56, 77 

End of Chapter Problems 18, 42, 52, 60, 78, 94, 
108, 132, 154, 174 

ENTER key 3 (see also RETURN key) 

Entry errors (see Error corrections) 

Entry tests (see Data entry tests) 

Equal Opportunity Program 174 

Entering statements 5, 7 

Error conditions 3, 22, 61, 62 (see also Error 
messages, Debugging) 

Error corrections 13, 14, 15, 61, 62 

Error messages 13, 31, 32, 38, 61, 62, 67, 68, 
70, 81, 123, 141 

Error traps 31, 61, 62 (see also Data entry tests) 

Evaluating expressions 9, 21, 62, 68, 83 (see 
also Arithmetic) 

Execute 5, 6, 21 (see also RUN) 

Exponent 47 (see also Floating point notation) 

Exponentiation 17 

Expressions (see Evaluating expressions, 
Arithmetic) 


Fahrenheit 50, 51 
False 69 (see also IF. . . THEN) 
Filter 7O (see also IF. . . THEN) 


FIX (function) 173 


Flag 77, 148, 149 

Floating point notation 47, 48, 52, 87 

FOR (statement) 96-108, 128 (see also Arrays) 
direct mode 103 

reference box 107 

Forever loop (see Loops, FOR) 

FRE (function) 173 

Frogs 102, 103, 107 

Functions 80-94, 110-132, 173 (see also 
Argument, Parameters) 

Function Reference List 173 


GO key 3 (see also RETURN key) 

GOTO (statement) 43-45, 50-52, 58, 64, 65, 77 
reference box 49 

GOSUB (statement) 166, 168, 170, 171 
reference box 172 

Grade Counting Program 155 

Graph 130, 131 

Graphics 120, 121, 171 


Handy Reference Summaries (see Reference boxes) 
HTAB 120 


IF...GOTO (see IF. . . THEN) 
IF... THEN (statement) 64-79, 123, 169 
condition or comparison symbols 66 
logical AND, OR 75, 123, 128 
reference box 78 
Imbedded spaces in strings 37 (see also String 
constants) 





Immediate mode (see Direct mode) 
Indirect statement 6, 9 (see also Program, Line 


number) 
Infinite loops (see Loops) 
Initialize 
BASIC 2 


variables 59, 61 
—subscripted variables or arrays (see DIM) 
INPUT (statement) 26-35, 61, 76, 99 
entry tests 35, 123, 128, 129 
multiple INPUT variables 31, 33, 34, 70 
reference box 22 
variables 26, 27, 32, 33 
Input/Output device 2, 18, 53 (see also Display, 
Keyboard, Printer) 
Inserting statements 7, 14,15 
INSTR (function) 173 
Instruction 6 (see also Statement, Program, Direct 
mode) 
INT (function 83-86, 90-92, 94, 121, 124-1 26, 
129, 132, 144, 146, 173 
Integer BASIC 49 
Interest calculations 104, 108 
Invisible string (see Null String) 
YO (see Input/Output device) 
Iteration 1 (see Loops, FOR) 


Keyboard diagrams 2, 3,4, 9, 15,17, 53 


Laurel & Hardy 36, 39 
Leading space (before PRINTed values) 29, 30, 
37, 118,119, 122, 126 
in strings 40, 41 
Left arrow key 13 
LEFTS$ (function) 111-117 
LEN (function) 110-112, 122,128, 132,173 
Length of a string (see LEN) 
LET (statement) 23, 25, 56 
reference box 22 
Line editor (see Program line editor) 
LINE INPUT (statement in some BASICs) 34, 35 
(see also INPUT) 
Line length 11, 44 (see also Character positions, 
Displays) 
Line number 6, 7, 14, 16, 65 (see also GOTO, 
GOSUB, ON. ..GOTO, IF. . . THEN) 
Lining up decimal points 122, 127 (see also 
PRINT USING) 
LINPUT (statement in some BASICs) (see LINE 
INPUT) 
Line feed 14 
(see also RETURN key, ASCII Code Chart) 
LIST (command) 8, 57 
List (see One dimensional array) 
Loading BASIC 2 
LOG, LOG10 (functions) 173 
Logged in 2 
Logic 66, 75 
Logical AND, OR (see AND, OR) 
Long division 86 , 
Loops 73, 77, 96 (see also Counting statements) 
infinite 43-46, 50-52 (see also GOTO) 
nested 105-108 (see also FOR, Two 
dimensional arrays) 


177 


es) 


Viques) 
also 


69 





Semicolon 10-12, 16, 61 (see also North Star 
BASIC) 
Spacing in PRINT Statements 10-1 2, 25, 
26,87, 110, 136 
In INPUT statements 27, 35 
SGN (function) 132..9473 
Sherlock Holmes 88 
SHIFT key 4, 61, 62 (see also Keyboards) 
Shopping Guide Program 174 
Simulation 144-146, 155, 166-171 
SIN (function) 131-132, 173 
singly subscripted variables (see One dimensional 


arrays) 

Sins of Omission, and other errors in my ways 
61-62 ; 

Slash (/) character 9, 35 (see also Division, 
Backslash) 


Slot Machine Programs 139, 155 

ON Error (see Syntax error) 

Snakes 105 (see also Loops) 

SPACES (function) 173 

Spaces in Strings 25, 26, 28, 29 

SPC (function) 120, 173 (see also TAB, Output 

format techniques) 

SOR (function) (Square root) 80-83, 173 

Stars, A Number Guessing Game Program 94 

Statement (see also Direct mode, Line Numbers) 
defined 6 
direct or immediate mode 16, 22, 59, 


i 
STEP (optional part of FOR Statement) 100, 101, 
132 


parameters 100, 101 
reference box 107 
STOP (statement) 172 
Strings 6, 14, 16, 25, 110 (see also Substrings) 
constants 136 
IN arrays 134, 139-142 
variables 25, 110 
STR$ (function) 118, 119, 122, 126 
Subscripted variables 1, 133-177 
Substrings 128-1 29 (see also LEFTS, RIGHTS, 
MIDS$) 
Subtraction 9, 17 (see also Arithmetic) 
Suppertally Program 161,162, 165 
Suppressed question marks 30 (see also INPUT) 
Syntax 3,4 
Syntax error message 3,4, 13, 28 
System Prompt (see Prompt character) 


TAB (function) 120-122, 126, 127, 150, 153. 
154, 163 (see also Output format 
techniques) 

Table (see two dimensional Array, Output format 
techniques) | 

Talking Frog Programs 102, 103, 107 

Tallying Statements (see Counting Statements) 

TAN (function) 130, 173 

erminal 2 (see also Display, Keyboard, Printer) 

Time delay using FOR-NEXT 107 

Touch-sensitive membrane keyboards 3 

Trace 21, 23, 24,29, 45 79 





Trailing space (after PRINTed values) 29, 30, 37 
. in strings 40, 41 (see also INPUT, DATA) 


Trap (see Data entry tests) 
Trigonometry functions 130, 134,473 
TRS-80 (see Radio Shack) 

True 65, 69 (see also IF... THEN) 
Truncation 25, 49 (see also INT) 

TV (see Display) 

Two dimensional] arrays 156-171 | 
Typing erros 10 (see also Error corrections) 


Up and running 2, 3. 

Up arrow 17 (see also Exponentiation) 

Upper case letters 6 (see also SHIFT) 

User friendly 30, 51 

User’s groups 1 

USR (function) 173 

Utility Program (see Trace, Program line editor) 


VAL (function) 118,119, 129, 173 
Values 20, 21,23, 25, 53 (see also Variables, 
Leading spaces, Strings, STRS, VAL, 
Assignment Statements, Floating point 
notation, Argument) 
Variable (see also Values, INPUT, READ, LET, 
IF... THEN, Argument) 
defined 20 
Mames 54 55 
numeric 20, 25, 28, 32. 36, 54, 55 
string 32, 36,54 55 ~ 
subscripts 135 (see also Subscripted 


Varaibles) 
Vector (see One dimensional arrays) 
VIC (see PET) 


Video display (see Display) 

Vote Counting Program 154 

Vote Counting with Two dimensional Array 
Program 161-165 

VTAB 120 


Water Usage Programs 78 
Yes or No Tester 68, 123 


179 





ae 1@ READ ASsBSsA 
20 PRINT ASJBS4A 
38 DATA "SHERRY DELIGHT", "890-555-1212", 03 


RUN 
SHERRY DELIGHT 898-555-1212 23 


6. 1@ INPUT"ENTER YOUR NAME"'3 AS 
28 INPUT “ENTER YOUR ASTROLOGICAL SIGN"'3 S$ 
30 INPUT “ENTER YOUR BIRTHDATE"; D$ 
48 PRINT ASs"YOU ARE UNDER THE SIGN OF "35 
598 PRINT’SINCE YOUR BIRTHDAY IS "3D 







ia (a) 18 LET X= CC CAs 88/648) *100)*7.5)/159 
2@ PRINT X."MONTHS" 
RUN 
58 MONTHS 


(b) No 


oe | 


CHAPTER 3 SOLUTIONS pS cronartarsone A 


1. 896700 
1,000,000,000,000,000 
001 
61,576,200,000 
00000387 124 


2. 1.78643235E+09 
3.13457532E+09 
1.2479E-04 
| 7.17777778E-03 
| 3. Hold the CONTROL (or CTR L) key down and type C, then release both 
keys and hit RETURN (or its equivalent on your keyboard). 


4. CONTROL/C 


9. 1@ PRINT “*NUMBER". "SQUARED" 6. 10 PRINT “PRESS RETURN To CONTINUE” 
20 LET T=1 #0 PRINT “NUMBER, “SQUARED” 
3@ PRINT T,sTr2 sO LET T = T + ji 
i 40 LET T=T+!1 49 PRINT T, TAZ 
58 GOTO 36 30 INPUT ""s; Re 
60 GOTO 30 
| RUN 
| NUMBER SQUARED 
| l l 
2 4 
3 9 
4 16 
5 25 
6 36 
7 49 
8 64 
9 81 
1g 1a0 
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20 INPUT"ENTER NO. OF SHOWERS PER DAY'S S 

3S INPUT “ENTER NO- OF MINS. pgp SHOWER" 3M 

4@ INPUT" ENTER NO. OF TUB BATHS PER DAY"'3B 

98 INPUT"ENTER NO- OF HAND DISHWASHING JOBS/DAY"'3 D 
68 INPUT"ENTER NO. OF AUTO. DISHWASHING JOBS/DAY''3 4 
7@ INPUT'NO. OF TOLLET FLUSHES/ DAY" 3 F 

80 INPUT'NO. OF WASHER LOADS/WEEK"'3 w 

90 INPUT'NO. OF OUTDOOR HOSE MINUTES/DAY''3H 

162 INPUT'ENTER NO. OF VARIOUS GALLONS USED/ DAY"'3 V 










119 LET Tsg This 
12@ READ x ee 

132 LET T=T+0S*(M*X) «3g — 

148 READ x Can Be 

iS@ LET T=T+( BX) x3Q oe 

16¢ READ x Faucet, 

178 LET T=T+(DeX) «3g 

189 READ x 

19@ LET T2=T+( AX) *3¢ 

288 READ x | | 

218 LET T2T+( FRX) «3g _ : 
e20 READ x = Sty —er oi 
238 LET T=T+(WxX) *4. 2 cae Ss" > 
248 READ X Cline’s Portable 

258 LET T=T+CH*X) *3Q Shower Bath. 


260 LET T=T+(VU*3Q) 

276 PRINT" YOU “USe APPROX. '"'3 +"GALLONS / MONTH OR “"3T/7-53 “CUBIC FEET 
28@ PRINT’ THAT IS AN AVERAGE OF '*3 T/383"GALLONS PER DAY" 

322 DATA 62282155 16564,35, 12 


RUN 
ENTER NOe OF SHOWERS PER DAY? | 

ENTER NO» OF MINS. PER SHOWER? 5 

ENTER NO. OF TuB BATHS PER DAY? | 

ENTER NO. OF HAND DISHWASHING JOBS/DAY? | 

ENTER NO- OF AUTO. DISHWASHING JOBS/DAY? | 

NO- OF TOILET FLUSHES/DAY? 5 

NO- OF WASHER LOADS/WEEK? 3 

NO- OF OUTDOOR HOSE MINUTES/DAY? @ 

ENTER NO. OF VARTOUS GALLONS USED/DAY? 52 

YOU USE APPROX. S271 GALLONS / MONTH OR 702.8 CUBIC FEET 
THAT IS AN AVERAGE OF 175.7 GALLONS PER Day 


1@ INPUT “ENTER WATER USED IN GALLONS"3q 
20 LET T3(G/7.5)/100:LET T=(T*.50)+2.85:PRINT"BILL IS "T:GOToO 1¢ 


RUN 
ENTER WATER USED IN GALLONS? 6909 

BILL IS 6.85 

ENTER WATER USED IN GALLONS? 19990 

BILL IS 9.51667 

ENTER WATER USED IN GALLONS? 20g0¢ 

BILL IS 16.1833 

ENTER WATER USED IN GALLONS? 183 








5. 106 REM CRAPS 
2@ LET A= INTC6*RNDC1)+1)SLET B= INTC 6*RNDC1)41) 
25 PRINT'POINT I5 "A+B 
38 IF A+B=7 THEN PRINT" WINNER": GOTO 2@ 
4@ IF A+B=11 THEN PRINT" WINNER": GOTO 2g 
98 LET C=INTC6*RNDC1)41)3LET D= INTC 6*RND(1)41) 
95 PRINT C+D, 
60 IF A+B=C+DTHEN PRINT" WINNER": GOTO 2e 
7@ IF C+#D=7 THEN PRINT"YOU CRAPPED OUT" :GOTO 2g 


82 GOTO Sg 
RUN 

POINT IS 6 

4 iS) 12 4 8 

8 9 9 6 WINNER 
POINT IS }] 
WINNER Use the Press RETURN To Continue 
POINT IS 6 technique for video displays to slow 

7 YOU CRAPPED ouT down the dice-shooting. 


POINT IS 5 


6. 1@ REM STARS 
26 LET N=INTC1@@*RNDC1)+1) 
3@ INPUT" ENTER YOUR GUESS"sG:IF G=N THEN PRINT" WINNER": GOTO 2@ 
40 LET D=ABS(G-N) 
98 IF D>=64 THEN 172 
60 IF D>=32 THEN 160 
76 IF D>=16 THEN 152 
8@ IF D>28 THEN 142 
90 IF D>=4 THEN 1398 
106 IF D>=2 THEN 120 
118 PRINT’ «"; 
128 PRINT''«''; 
130 PRINT't«!'s 
146 PRINT x's; 
15@ PRINT" 
168 PRINT *'t«"; 
178 PRINT *':GoTO 30 








RUN 
ENTER YOUR GUESS? 38 
* & 


ENTER YOUR GUESS? 05 yf a 
ee yf ip 
ENTER YOUR GUESS? {5 Pi 
2K ok 2 2k 2 
ENTER YOUR GUESS? jig 
He te oe ae 2k | 

ENTER YOUR GUESS? ¢ 
2K 2 ok te fe 

ENTER YOUR GUESS? 92 
AK ie ok aK a 

ENTER YOUR GUESS? ;23 
2K 2 oe ofc fe ae 

ENTER YOUR GUESS? |} 
WINNER 

ENTER YOUR GUESS 




















Ok, I HAVE A NUMBER. START GUESSING. 


WHAT IS YOUR GUESS?S0o 
TOO BIG. GUESS AGAIN. 


WHAT IS YOUR GUESS?25 
TOO BIG. GUESS AGAIN. 


WHAT IS YOUR GUESS? 20 
TOO BIG. GUESS AGAIN. 


WHAT IS YOUR GUESS?5 
TOO SMALL. GUESS AGAIN. 


WHAT IS YOUR GUESS?i7 
TOO BIG. GUESS AGAIN. 


WHAT IS YOUR GUESS?i2> 
TOU BIG. GUESS AGAIN. 


WHAT IS YOUR GUESS?7ii 
TOO BIG. GUESS AGAIN. 


WHAT IS YOUR GUESS? ico 
TOO BIG. SORRY, THAT’S g GUESSES. LET*’S PLAY AGAIN. 


Ok, I HAVE A NUMBER. START GUESSING. 


WHAT IS YOUR GUESS? 


10 FOR X=1T0O 72: PRINT “*” ; NEXT 


Note this: The second FOR variable parameter (upper limit) should be 
exactly equal to the number of characters for a print or display line. See 
your page 11 test, and substitute this value in the program. 


80 column printer or display version. 


2 REM INTEREST TABLE 

8 PRINT" YEARS", "52", "5S. 5¢0, "64's "6.52" 

1@ FOR Y=5 TO 25 STEP 5 

iS PRINT Y, 

28 FOR I=5 TO 6.5 STEP .5 

38 PRINT 1O0006*(1+CI/100))tY, sNEXT I: PRINT 
40 NEXT Y 





YEARS 54 3«5% 62 625% 
S 12762.8 130696 13382.3 13788.9 
16 16289 1708124 1798.5 18771.4 
15 260789.3 22324.7 2396566 2571824 
20 26533 29177.5 32871.3 35236.5 
25 3386326 38133.7 4291827 48277. 1 
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NEXT 


CHAPTER 9 SOLUTIONS 


1. (a) Line 70 


2. 


C = consonant, V = vowel. 


9 REM RANDOM NAME GENERATOR(CVCCVC) 
1g 
15 
2g 
38 
40 
45 
38 


FOR N=! TO 2g 


PRINT’ J"SMIDSCVSSVI15-1 ISMIDSC(NSSC2, 
PRINT MID$S(V$sV2~—1 ISMIDS(NS,C451), 
NEXT N 


RUN 

JIPFID 
JOJWEB 
JUSPOH 


JUDBUV 
JAXJOK 
JEPXAT 


JIDRID 
JEPSIG 
JIYBOT 


VS="AEIOU":NS="BCDFG HJKLMNPQRSTVWXYz" 


VISINTCS#RND(1))+12V2=INTC5*RNDC1)) +1 
CesINTC21*RND(1))+13C3=INTC21eRNDC L)d+1:C4=INTC21*RNDC1))+] 
L)SMIDS(N$5C351)3 


JUHWEK 
JEZSUK 
JUHLIF 


JEPTIZ 
JIGNAV 
JEMJEK 


[Wine orute] WIN VITAE 


Retail Price, per bottle, $1.25 


, A NEW AND PERFECT TONIC STIMULANT FOR THE TIRED, WEAK AND SICK OF ALL CLASSES. A 
i A STIMULANT FOR THE FATIGUED, A STRENGTHENER FOR THE WEAK, AN EFFECTIVE AND 
5. 







() Print salesman name and total sales 
(c) Tallies up grand total sales 
(d) Line 100 or 110 


the prepa 





VIN 


L. FRENCH 
B. MIDLER 
4 00 
500 


A CLASS BY 


Se 
Are you Easily Tired? 

Do you Sleep Badly? 
Are you Nervous? 

Bo you Fee] Exhausted? 


TSELF. 


petite 
Is your Stomach Weak? 
Are you Thin? 
Is your Circulation Poor? 
Ara you Weak, either con- 
stitutionally or from ze- 
cent sickness? 
eee 


6 


O1 OO © = 


Only when your array exceeds 11 variables or elements, 
BASICs; for a// arrays in some other BASICs. 


paration. 
VIN’ VITAE contsine a 


SUTPASKES ANY preparation on the market. IT IS IN 


Have you Lost your Ap- 
ite? 


ee o, 
active; you will fee! rel Fich blood coursing thro 
ad 


o 
magic, puta new lite ou, ngs Pp 
to the freshnesa of a bright morning, banishes fatigue and dullness 
immediately. 


Our Price, 69 Cents. 


RENEWER OF ENERGY, 
AGREEABLE FOOD FOR THE BLOOD, BRAIN AND NERVE 


hy 
| NOT A MEDICIN FO THE TASTE AND TO THE | NOT MERELY A STIMULANT, 257.4, e°%02 
SOLA MEMIUINEs oe | ee BREET A OTURULART, 


tet A Tonic which we find 
oe WHAT IS VIN VITAE? 


‘4 South American herbs, with the Invigorating tonic effects of the Po 
California. Tue herbs supply the nacded food strength for ihe b) 


TO 
STRENGTUENER 


is as yet Unequaled. 


VIN VITAE (WINE OF LIFE) isa preparation combining through 
highest medical skill the curative, healln a 
lebrated vegetable elements, procured f 






Powers of ce 


lthe good properties of all the well kn 


VITAE 


YOU SHOULD TAKE 
VIN 
VITAE 

REGULARLY iF You 

MUST ANSWER 

YES 


TO ANY ONE OF 
THESE QUESTIONS. 
— as 


ug 
ily, you will fee) health and 
to Fo il 


Fou right u 


Vin Vitae gives health and strength. 


in Microsoft-style 


If your BASIC doesn’t include leading and trailing spaces for PRINTed values, 


include spaces inside quotation marks a 
candidate’s “‘code’’ numbers from the candidate vote count 
for each office. 


20 READ PISVILSTISIF Pl=-] THEN 5@ 
38 
38 
68 
76 
8 


98 


PRINT’ PRESIDENT", "VEEP", “TREASURER" 
FOR X=1 TO 3 
PRINTX3 P(X) sX3 VCX) a X$ TCX) 

NEXT X 


RUN 

PRESIDENT VEEP TREASURER 
i 3 lt 2 i 3 
2 3 2 § 2 1 
3. 2 3.1 3.44 





DATA bod 192525 24353535 152030302 1s 291535252535 132,5 


") in line 70, to separate the 


under the heading 


PCPLISPCPL +13 VCVIISUCVID Lt TCTLSTOTID+12G60T0 2g 


ls-le-ls-] 
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CHAPTER 10 SOLUTIONS 


i. Always 


2. S stands for Sex (1 for male, 2 for female) 
A stands for Age group (1 to 6) 


80 column printer or display version. 


1@ REM EQUAL OPPORTUNITY 

1S DIM C(652) 

28 READ S,sA:IF S=-1 THEN 4g 

32 BC As SSC CASS) +120 68sS)=C(O4S)41 CAs 0) =C( As 8) 412G0T0 2g 
4@ PRINT'AGE", “MALE"s,"FEMALE", "TOTAL" 

598 FOR A=1 TO 6:READ DS:PRINTDS, 

6@ FOR S=1] To 2:PRINT CCAsS)s:NEXT § 

7@ PRINTC (CAs@) sNEXT A 

80 PRINT’ TOTALS", C(8s1)5C(Bs2) 

92 DATA 14328220 1a 1s Bos 24542565 bs 6515501 o slo 3e lo 20 le 2o-l ol 
190 DATA UNDER els 21~294 30-39, 48-49,59-59,0VER 59 








RUN | 
AGE MALE FEMALE TOTAL | 
UNDER 21 1 M, 1 

21-29 2 ! 3 

32-39 2 g 2 | 
4B-49 l ! 2 | 
58-59 1 i 2 | 
OVER 59 i 1 2 | 
TOTALS g 4 | 


40 column display version. 


10 REM EQUAL OFPORTUNITY 
29 DIM C(4,2) 
30 READ S,A: IF § = — 1 THEN So 
40 CiA,S) = CtA,S) + 1:C(o,5) = C(o,S) + 1:C(4,a) = C(A,O) + 1: GOTO zo 
oO PRINT "AGE": TAR( 10)5"MALE": Tage 18)3"FEMALE": Tare 2&)3 
"TOTAL": PRINT 
60 FOR 4 1 TO &: READ Ds: PRINT D$ssT = 12 
79 FOR S 1 TO 2: PRINT Tart T)3C(A,S)s: LET T = T + 8: NEXT S 
80 PRINT TAR‘ T)3;C(G,0): PRINT : NEXT A 
9O PRINT "TOTALS": TAB 12.3CCO,1): Tans £9) 53006, 2) 
100 DATA bgses 2515 hy 2545255, 2,6, 156,1,5,1,4, 1,5, 1525 1,2,-1,-1 
110 DATA UNDER #1, 21-29, 30-39, 40-49, 50-59, OVER a9 











In version one, you may need to insert the following statement: 
75 PRINT 


80 column printer or display version. 


108 REM SHOPPING GUIDE 

15 DIM P(1054),TC4) 

18 REM READ IN DATA 

2@ FOR S=1 TO 4 

38 FOR I=! TO 1@: READ PCIsS)3:NEXT IsNEXT § 

4@ REM PRINT IT OUT 

5@ PRINT’ ITEM #"'y"STOREI" 525354 

6@ FOR I=1 TO 18@:PRINTI, 

7@ FOR S=1! To A?PRINTPCIsS)52:T(S)=TCS)+PC1sS) NEXT S 
8@ NEXT I 

98 PRINT'TOTALS"s:FOR X=1 TO A:PRINTTCX)s:NEXT X 
180 DATA 1293545536579 859518 

118 DATA 1859585736555 45 4525! 

128 DATA 1919252535354 545555 

136 DATA4 + 4555556965757 09 8598 


ITEM # O TORE! 2 3 4 
1 l 1¢ l a 
2 2 9 l 4 
3 3 8 < 5 
a & 7 va 5 
S) 5 6 3 6 
6 6 2 3 6 
7 7 4 A 7 
8 8 ef a 7 
9 9 e S & 
10 1d > 8 

TOTALS 35 36 32 62 


40 column display version. 


REM *kk SHOPPING GUIDE 
DIM F(10,4),T(4) 

REM **x READ DATA INTO ARRAYS 

FOR S = 1 TO 4 

FOR I = 1 TO 10: READ P(I,S): NEXT I: NEXT § 

REM **xDISPLAY ROUTINE 

PRINT “ITEM#"; TAR( 8)3"STORE#I"; TAB(C 16); "#2"; TAB( 24); "#3"; 
TAR( 32)5 "#4": PRINT 

FOR I = i TO iO: PRINT Ir: LET M = @ 

FOR S = 176 4: PRINT TABC M)3P(1,S)3: LET T(S) = TCS) + FCI,S): 


LET M = M + &@: NEXT S 
PRINT 

NEXT I 

LET M = 8: PRINT "TOTAL"3: FOR X = 1 TO 4: PRINT TAR( M)sT(X)e: 
LET M = M + G: NEXT xX 

DATA 1,2,3,4,5,6,7,9,9,10 

DATA 10,9,8,7,4,5,4,3.2,1 

DATA 1,1,2,2,3,3,4,4,5,5 

DATA 4,4,5,5,4,6,7,7;8,8 
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MORE HELPFUL WORDS 
FOR YOU 


Computers for Everybody 
Jerry Willis and Merl Miller 


This fun-to-read book covers all the things you should know 
about computers. If you’re anxious to buy one, use one or 
just want to find out about them, read this book first. 


ISBN 0-918398-49-5 $5.95 






Peanut Butter and Jelly Guide to Computers 
Jerry Willis 
This entertaining book is a Simple, easy-to-digest source of 


information on personal computing. It leads you through all 
the essential knowledge of “computer literacy.” 


ISBN 0-918398-13-4 $9.95 


Nailing Jelly to a Tree 
Jerry Willis and William Danley, Jr. 


This is a book about software. The emphasis is on learning 
to use the thousands of available programs that have 
already been written, and adapting them to your machine. 


ISBN 0-918398-42-8 $15.95 


Small Computers for the Small Businessman 
Nicholas Rosa and Sharon Rosa 


If you’ve ever considered a computer for your business but 
didn’t know where to turn, this is the book that will arm you 
with all the information you’ll need to make an intelligent, 
cost-effective decision. 


ISBN 0-918398-31-2 $16.95 


dilithium Press, P.O. Box 606, Beaverton, OR 97075 


Ce ce 


Send to: dilithium Press, P.O. Box 606, Beaverton, OR 97075 


Please send me the book(s) | have checked. | understand that if I’m not fully Satisfied, | can return‘ 
the book(s) within 10 days for full and prompt refund. 


—__ Computers for Everybody —_— Peanut Butter and Jelly Guide to Computers 
_____ Nailing Jelly to a Tree ____ Small Computers for the Small Businessman 
_] Check enclosed $ L] Please charge my 

Payable to dilithium Press L] VISA (CMastercharge | 
_] Send me your catalog of books. tf Exp. Date 





Signature Sr 
Name See 
Address __ 7 - 
OO rs 
City, State, Zip __ _ _ 1B 
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